[文本处理] [已解决]BAT或VBS怎样从这样文本按特征码提取数字作变量？

toobat

有一组数字16347是变化的
想以这串特征码读取后面5位数字出来作变量
特征码后有些行是英文，找到那第一个匹配是数字并读取出来要怎么写？？
读取成16347这样五位数

BAT,VBS都可以，求大神

pcl_test

回复 1# toobat
这两个问题不是一样？
http://www.bathome.net/viewthread.php?tid=34829

toobat

回复 2# pcl_test


    我发现这个文件会生成其他东西，用上次那个读取会读错，只能靠特征码才能正确读取，不知道能不能以普通文本编码获取？

pcl_test

回复 3# toobat

[attach]8486[/attach]

apang

@echo off
for /f %%a in ('sed -r "s/\x00//g;s/.*LoadPerfMICROSOFT([0-9]+).*/\1/" sys.config') do (
        set "var=%%a"
)
echo,%var%
pause
复制代码

apang

vbs 好像可以这样：

with CreateObject("Adodb.Stream")
        .Type = 1
        .Mode = 3
        .Open
        .LoadFromFile "sys.config"
        bin = .Read(-1)
End with

For i = 1 to LenB(bin)
        b = MidB(bin, i, 1)
        If AscB(b) <> 0 Then s = s & Chr(AscB(b))
Next

Set re = New RegExp
re.Pattern = "LoadPerfMICROSOFT(\d+)"
If re.Test(s) Then var = re.Execute(s)(0).SubMatches(0)

MsgBox var
复制代码