Kod: Kodu kopyalamak için üzerine çift tıklayın!
alias txt {
set %txtkontrol $input(TXT satır eklemek için EVET satır silmek için HAYIR içeriğini görmek için İPTAL seçin,vn,Metin Belgesi Ekleme\Silme paneli)
if %txtkontrol == $yes {
if $input(TXT satır eklemek için veri giriniz,e,Metin girme paneli) != $null { write $token($!,1,32) $gettok($!,2-,32) | echo -a $token($!,1,32) belgesine06" $gettok($!,2-,32) " eklendi. | goto zıpzıp }
else { goto zıpzıp }
}
if %txtkontrol == $no {
if $input(TXT satır silmek için veri giriniz,e,Metin silme paneli) != $null {
if $read($token($!,1,32),w,$+(*,$gettok($!,2-,32),*)) { echo -a 06" $read($token($!,1,32),$readn) " silindi. | write $+(-dl,$readn) $token($!,1,32) | goto zıpzıp }
else { echo -a Böyle bir satır bulunamadı }
}
else { goto zıpzıp }
}
if %txtkontrol == $cancel {
set %txtkontrolgör $input(Belge adı giriniz,eo,TXT Görüntüleme Paneli)
if %txtkontrolgör == $null { goto zıpzıp }
else {
$iif($window(@Görüntüleme),clear @Görüntüleme,window -n @Görüntüleme)
loadbuf @Görüntüleme $!
}
}
:zıpzıp
unset %txtkontrol*
}
Input basamağına girdiğiniz belge yolunu görüntüler.