| manikdepresif | 08 Ekim 2023 01:04 |
Cevap: Kodlarda calisan veya calismayan line gormek
Arkadaslar herkese merhabalar,
Gecen gun aklima geldi neden $scriptline 'i kodlarin sonuna koyuyorum ki onune koyarim dedim ve kodu degistirdim ve calisir hale getirdim ve su an birkac kod uzerinde denedim aktif olarak calisiyor.
-
Kodun islevi inanilmaz buyuk olcude kodlari yazmaniza anlamaniza hata bulmaniza fayda saglayacagina inaniyorum.
bilhassa uzun kodlarda mesela 400 600 vs. satirli uzun kodlarda hata bulurken size kolaylik saglayacak.
-
Kodun islevi su sekilde;
diyelim ki elimizde 50 satirlik bi kod var.
o kodu /testmode kod.ini ile testmode penceresinde aciyoruz.
daha sonra kodu calistirmak icin tetikliyoruz,alias ise /alias, event ise event seklinde.
tetikledigimiz anda @ [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]mode penceresinde normalde komple kırmızi gozuken satirlar yesile dönüyor ve bize hangi satirlarin cslistigini gosteriyor sadece onunla da kalmiyor tek tek hangi satirlarin calistiginida yaziyor hem o pencerede hem de txt belgesinde, umarim kullanip faydalanirsiniz,
-
eksiklerim icin yazin tekrardan bakarsam duzeltirim, kodu paylasiyorum yeni hali ile pek denemedim ama calisacagina maximum duzeyde inaniyorum.
-----
kod yzr: jeun Kod:
alias testmode {
write -c testmodecalisanlines.txt
unset %per_x_
if (!$1) { echo $color(info) Kullanim: /testmode remotedekidosyaismi.uzantisi | return }
if ($1 isnum) { echo $color(info) Hata: Dosya ismi rakam olamaz. Kullanim: /testmode remotedekidosyaismi.uzantisi | return }
if ($script($1-) == $null) { echo $color(info) Hata: Remotede $1- isimli bir dosya bulunamadi.Eger dosya uzantisi varsa yazmayi unutmayiniz. | return }
if ($script($1-)) {
set %test_mode_file $qt($script($1-))
if (*.ini iswm $nopath($v1)) {
initotext $qt($+($gettok($1-,-2,46),_yedek,.txt)) $+ ? $+ $qt($script($1-))
form 124 | form2 123 | form3 125
}
else {
set %long_test_text_file $+($gettok($1-,-2,46),_yedek,.txt)
.copy $qt($script($1-)) %long_test_text_file
form 124 | form2 123 | form3 125
}
}
_convert_code testmodefile.txt
.unload -rs %test_mode_file
.load -rs testmodefile.txt
clear @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]MODE
window -beln @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]MODE
var %f = 1
while %f <= $lines(%long_text_norm3) {
aline -c4 @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]MODE %f $+ ) $read(%long_text_norm3,n,%f)
inc %f
}
echo -at @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]MODE Kod Tetiklenmek icin Hazir, Tetiklenmesini Saglayin. 0,4 0 |0,3 1
echo -at @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]MODE Unutmayin, Kodunuzu Sadece 1 kez test edebilirsiniz.Daha fazla test icin @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]mode penceresini kapatin ve tekrar deneyin !
window -b @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]mode
}
alias _show_line { var %_str_n = $$1 | cline 3 @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]MODE %_str_n | aline @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]MODE %_str_n
write testmodecalisanlines.txt %_str_n
.timerjeun 1 1 aline @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]mode Toplam Calisan Satir(Line) Sayisi: $calc($line(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]mode,0) - $lines(%long_text_norm3))
.timercw 1 1 write testmodecalisanlines.txt Toplam Calisan Satir(Line) Sayisi: $calc($line(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]mode,0) - $lines(%long_text_norm3))
.timercx 1 1 run testmodecalisanlines.txt
}
alias -l form {
set %long_text_norm long_text_one.txt
write -c %long_text_norm
var %j = 1 , %e = 1 , %n = $$1
while %j <= $lines(%long_test_text_file) {
var %k = $read(%long_test_text_file,n,%j)
tokenize 32 %k
if (;* iswm %k) { write %long_text_norm %k | goto yorum }
while (%e <= $0) {
if [ $ $+ [ %e ] ] != $chr(%n) { var %u %u [ $ $+ [ %e ] ] | goto n }
write %long_text_norm %u
unset %u
:n
inc %e
}
write %long_text_norm %u | var %u | var %e 1
:yorum
inc %j
}
}
alias -l form2 {
set %long_text_norm2 long_text_two.txt
write -c %long_text_norm2
var %j = 1
while %j <= $lines(%long_text_norm) {
var %n = 1 , %u , %t , %c = $read(%long_text_norm,n,%j)
if (;* iswm %c) { write %long_text_norm2 %c | goto yorum }
if ($+(*,$chr(123),$chr(32),*) iswm %c) {
while (%n <= $mid(%c,1,0)) {
if $+(*,$chr(123),$chr(32)*) !iswm $mid(%c,1,%n) { var %u $mid(%c,1,%n) }
if $+(*,$chr(123),$chr(32)*) iswm $mid(%c,1,%n) {
write %long_text_norm2 $mid(%u,$+(%t,-))
var %t %n
var %u
}
inc %n
}
}
if $mid(%c,1,0) == $len(%u) { write %long_text_norm2 $mid(%u,$+(%t,-)) }
if ($+(*,$chr(123),$chr(32),*) !iswm %c) { write %long_text_norm2 %c }
if %c == $chr(123) { write %long_text_norm2 %c }
:yorum
inc %j
}
}
alias -l form3 {
set %long_text_norm3 long_text_three.txt
write -c %long_text_norm3
var %j = 1 , %e = 1 , %n = $$1
while %j <= $lines(%long_text_norm2) {
var %c = $read(%long_text_norm2,n,%j)
if (;* iswm %c) { write %long_text_norm3 %c | goto yorum }
if $+(*,$chr(125)) iswm %c {
if ($pos(%c,$+($chr(32),$chr(125)),1)) {
var %z = $v1
write %long_text_norm3 $mid(%c,1,%z)
dokona $count($right(%c,$calc($len(%c) - %z)),$chr(125))
}
}
else { write %long_text_norm3 %c }
if (%c == $chr(125)) { write %long_text_norm3 %c }
:yorum
inc %j
}
}
alias -l dokona {
var %p = 1
while (%p <= $$1) {
write %long_text_norm3 $chr(125)
inc %p
}
}
alias -l _convert_code {
write -c $$1
var %j = 1, %y = $lines(%long_text_norm3)
while (%j <= %y) {
var %mmr = $read(%long_text_norm3,n,%j)
if if* iswm %mmr {
write $1 %mmr $!_show_line( $+ $!scriptline $+ )
goto jeun
}
if alias* iswm %mmr {
write $1 %mmr $!_show_line( $+ $!scriptline $+ )
goto jeun
}
else {
write $1 $!_show_line( $+ $!scriptline $+ ) $chr(124) %mmr
}
:jeun
inc %j
}
}
alias -l initotext {
tokenize 63 $$1-
write -c $1
var %j = 1
while (%j <= $ini($2,1,0)) {
write $1 $readini($2,n,$ini($2,1),$ini($2,1,%j))
inc %j
}
set %long_test_text_file $1
}
on *:close:@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]MODE:{
.unload -rs testmodefile.txt
.load -rs %test_mode_file
.remove -b %long_test_text_file
.remove %long_test_text_file
.remove %long_text_norm
.remove %long_text_norm2
.remove %long_text_norm3
.remove testmodefile.txt
unset %long_text_norm* %test_mode_file %long_test_text_file
}
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] |
