根据字符数提取文本文件的对应行。

crkey12345

某个文本文件ex.txt,大概三万多行，
如果此行有8个字符（注：英文字符），就把它提取出来，另存或把不符合条件的行删除。

Ziya

$file = FileRead("bt.txt")
$line = StringRegExp($file,"[A-Za-z]{8}",3)
MsgBox(0,"",UBound($line))
For $i = 1 To UBound($line)- 1
FileWrite("tb.txt",$line[$i]&@CRLF)
Next

读取文本为bt.txt
符合条件的行写入到tb.txt
只匹配8位大小写英文
请做好备份

水木子

是有8个英文字符，还是只有8个英文字符？？

1A2B3C4d5e6F7G8H  这个字符串也含有8个英文字符，不知道楼主是问的哪种情况。


这个是 只有8个英文字符的情况

Local $sResult

$sText = 'asdasd0434' & @CRLF & _
                'asdsad' & @CRLF & _
                'asdioeiroiefjdsf' & @CRLF & _
                'sdjasd' & @CRLF & _
                'djskfjdkfgkjg' & @CRLF & _
                'd09' & @CRLF & _
                'adskfjki' & @CRLF & _
                'asdjalskdjlk' & @CRLF & _
                'asdkdjkf' & @CRLF & _
                'asdkjsadkjlkasjdl'
                
$aReg = StringRegExp(@CRLF & $sText, '(?i)\n([a-z]{8})\r', 3)

For $i = 0 To UBound($aReg) - 1
        $sResult &= $aReg[$i] & @CRLF
Next
MsgBox(0, '8个英文字符', $sResult)

minterz

呵呵，都是正则强人啊。。