论坛 › 『 提问交流 』 › 怎么获取txt文件里面的某几个字符

shounei 发表于 2011-5-20 18:13:51

怎么获取txt文件里面的某几个字符

如题：我要获取udo.log里面的OnLastUserInfo - 后面的数字有多少位数
udo.log里面的内容如下
2011-05-20 18:01:09.171 -> On ConnectionEstablished
2011-05-20 18:01:09.390 -> CLocalServer::LocalLogin clientVersion 9.1.0.3,3.6.0.59
2011-05-20 18:01:09.546 -> CCommandProcessor - OnLogin
2011-05-20 18:01:10.000 -> Start IProtect Succeed.
2011-05-20 18:01:10.765 -> CCommandProcessor - OnReportAsset
2011-05-20 18:01:11.015 -> CCommandProcessor - OnGetNetbarConfig
2011-05-20 18:01:11.250 -> CFlowControlDlg::OnGetNetbarConfig
2011-05-20 18:01:11.484 -> The WWM Server IP is 192.168.0.252!
2011-05-20 18:01:11.640 -> CCommandProcessor - OnGetClientInfo
2011-05-20 18:01:11.875 -> AutoCheckIn
2011-05-20 18:01:12.125 -> OnLastUserInfo - 0215674275
2011-05-20 18:01:11.531 -> Start IProtect Succeed.

wjc826194 发表于 2011-5-20 18:33:06

$file = FileOpen("udo.log", 0)

; 检查打开的文件是否可读
If $file = -1 Then
        MsgBox(0, "错误", "不能打开文件.")
        Exit
EndIf

; 每次读取一行文本,直到文件结束.
While 1
        $line = FileReadLine($file)
        If @error = -1 Then ExitLoop
        If StringInStr($line, "OnLastUserInfo") <> 0 Then
                $text = StringStripWS($line, 8)
                $text = StringSplit($text, "-")
                $result = StringLen($text[$text])
                MsgBox(0, "字符长度:", $result)
        EndIf
Wend

FileClose($file)

onepc 发表于 2011-5-20 18:42:08

$Pass = StringRegExp($line,'OnLastUserInfo - (\d+)',3)

3mile 发表于 2011-5-20 18:53:51

(?<=-\s)\d+

lixiaolong 发表于 2011-5-20 18:55:29

$file = FileOpen("udo.log")
$str = StringRegExp(FileRead($file), '(?<=OnLastUserInfo\s-\s)\d+', 3)
FileClose($file)

MsgBox(0,"",$str)

查看完整版本: 怎么获取txt文件里面的某几个字符