搜索并分割数字字符串

时间:2013-10-24 02:54:18

标签: vbscript jscript

我有一个output.txt文件,其中包含以下内容:

Windows        6543765432
Linux          4534653463
MacOS          3564325
Ubuntu         8235646255

我想创建一个VBScript,它搜索output.txt中的所有数值并将它们除以1024,以便KB中的内存可以更改为MB。 我已经尝试批量here,但由于2 GB的限制,它在上述情况下不起作用。

2 个答案:

答案 0 :(得分:2)

您的顶级任务是修改结构化文本的小文件。这项任务的“设计模式”是:

Get a FileSystemObject
Specify the full file path
Read the content
Modify the content
Write the modified content back

您的修改子任务涉及对非恒定/变化部分的计算;然后应该使用'RegExp.Replace with Function'策略:

Define a RegExp (global, identify the parts to change)
.Replace(input, GetRef("function to do the computations on the parts"))

在你的情况下,该函数应该将(字符串)部分转换为数字,然后除以,并返回转换为字符串的结果。

在代码中:

  Option Explicit
  Const FSPEC = "..\testdata\txt\19556079.txt"
  Dim oFS : Set oFS  = CreateObject( "Scripting.FileSystemObject" )
  Dim sAll : sAll = Modify(oFS.OpenTextFile(FSPEC).ReadAll())
  oFS.CreateTextFile(FSPEC).Write sAll
  WScript.Echo oFS.OpenTextFile(FSPEC).ReadAll()

Function Modify(s)
  Dim re : Set re = New RegExp
  re.Global = True
  re.Pattern = "\d+"
  Modify = re.Replace(s, GetRef("FiMoReFunc"))
End Function

Function FiMoReFunc(sM, sP, sS)
  FiMoReFunc = CStr(CDbl(sM) / 1024)
End Function

更精彩的输出:

FiMoReFunc = Right(Space(20) & FormatNumber(CDbl(sM) / 1024, 1, True) & " Unit", 20)

输出:

Windows            6,390,395.9 Unit
Linux              4,428,372.5 Unit
MacOS                  3,480.8 Unit
Ubuntu             8,042,623.3 Unit

答案 1 :(得分:1)

试试这个

Option Explicit

Const FILE = "output.txt"
Dim fso
Dim ts,line
Dim match,matches
Dim os,mem

Set fso = CreateObject("Scripting.FilesystemObject")
Set ts = fso.OpenTextFile(FILE)

With New RegExp
  .IgnoreCase = True
  While Not ts.AtEndOfStream
    line = ts.ReadLine

    .Pattern = "[a-z]+"
    Set matches = .Execute(line)
    For Each match In matches
      os = match.Value
    Next

    .Pattern = "\d+"
    Set matches = .Execute(line)
    For Each match In matches
      mem = (CDbl(match.Value) / 1024)
    Next

    WScript.Echo os & vbTab & mem
  Wend
End With

Set ts = Nothing
Set fso = Nothing
WScript.Quit