Elimde 100 e yakın sayı var, bunları 6 lı 7 li kombinasyonlar halinde toplamak için lazım bu kod. Her sayı için a1=1 a2=2 a3= 8 a4=21 ... gibi devam ediyor.
|
| Alıntı: |
alias F12 {
set %karakter $gettok(%deneme,%son,32)
set %karaktersayi $len(%karakter)
if (%karaktersayi == 3) { k3 }
if (%karaktersayi == 4) { k4 }
if (%karaktersayi == 5) { k5 }
}
else {
.halt
}
;::::::::::::::::::::::::::::::::::::::::::::::::: ::::::::::::::
alias k3 {
set %degistir $gettok(%deneme,%son,32)
set %karaktersayi $len(%degistir)
set %artir $right(%degistir,1)
inc %artir +1
set %yeniveri % $+ a $+ %artir
set %deneme $puttok(%deneme,%yeniveri,17,32)
write 1.txt %deneme
.F12
}
;::::::::::::::::::::::::::::::::::::::::::::::::: :::::::::::::::
alias k4 {
set %degistir $gettok(%deneme,%son,32)
set %artir $right(%degistir,2)
inc %artir +1
set %yeniveri % $+ a $+ %artir
set %deneme $puttok(%deneme,%yeniveri,17,32)
write 1.txt %deneme
.F12
}
alias k5 {
if (%artir < 111) {
set %degistir $gettok(%deneme,%son,32)
set %artir $right(%degistir,3)
inc %artir +1
set %yeniveri % $+ a $+ %artir
set %deneme $puttok(%deneme,%yeniveri,%son,32)
write 1.txt %deneme
.F12
}
}
%deneme a1 + a2 + a3 + a4 + a5
%son 9
|
Bu yazdiğım kodla %deneme verisindeki a6 kısmı a111 e kadar değişiyor. Sonra işlem bitiyor. Benim istediğim bu işlem bittikten sonra %deneme verisindeki a5 verisinin değişmesini sağlamak diğerleri sabit kalacak a6 ya yaptığım işlemin aynısını yani. Böyle böyle a1 e kadar değişimleri otomatik olarak yapmak.