fso createtextfiletxt文本数字内容筛选提取

txt文本数字内容筛选提取

把一楼的答案修改了一下，测试输出正确！ set fso = CreateObject ("SCripting.FileSystemObject") set hr = fso.OpenTextFile ("D:输入.txt") set hw = fso.CreateTextFile ("D:输出.txt",true,-2) do until hr.atendofstream l = Trim (hr.Readline) if l <> "" then tstr = "" for k = 1 to Len (l) t = Mid (l,k,1) if isnumeric (t) = vbFalse then if Len(tstr) >= 5 and Len(tstr) <= 10 then hw.WriteLine tstr end if tstr = "" else tstr = tstr & t end if next if Len(tstr) >= 5 and Len(tstr) <= 10 then hw.WriteLine tstr end if end if loop hw.close MsgBox "OK !" Wscript.Quit