, regex kalıbı ile kıyaslayıp test etmenizi sağlar.
Kolay bir version ve çok fazla test şansım olmadı.
seçeneğinden aktif edebilirsiniz.
kısmınada regex kalıbını girerek doğru/yanlış ayırımı yapabilirsiniz.
ları (back references) görebilirsiniz.
İlerleyen zamanlarda belki gelişmiş versionu ile güncelleme yapabilirim.
İyi forumlar.
Kod: Kodu kopyalamak için üzerine çift tıklayın!
menu * {
.Regex Test:if !$dialog(reg) { dialog -m reg reg }
}
alias re {
var %rx = $did(reg,1).text
var %z = $regex(x,$1,%rx)
if %z = 0 {
did -r reg 5
return Hayır
}
if $did(reg,1).text {
if $regml(x,1) {
did -r reg 5
var %s = 1, %sub = $regsubex(z,$str(.,$regml(x,0)),/./g,$+(\n,.Referans:, $chr(160), $regml(x,\n), $chr(32)))
while %s <= $numtok(%sub,32) {
did -i reg 5 %s $token(%sub,%s,32)
inc %s
}
}
}
if !$did(reg,1).text || !$regml(x,1) {
did -r reg 5
$iif(!$did(reg,1).text, return $chr(32))
}
return Evet
}
alias xe did -ra reg 6 $re($1-)
dialog reg {
title "Regex Kontrol (Feragat)"
size -1 -1 188 134
option dbu
edit "", 1, 8 18 174 10, multi autohs
text "Regex", 2, 9 9 25 8
text "Text", 3, 9 31 25 8
edit "", 4, 8 41 174 11, multi autohs
text "", 6, 154 60 25 8
text "Referanslar ", 7, 7 67 66 8
edit "", 5, 7 79 174 48, read multi vsbar
}
on *:dialog:reg:*:*:{
if $devent = init {
did -f reg 4
}
if $devent = edit {
if $did(4) {
xe $did(reg,4).text
}
}
}