带有空格和制表符的vbscript文件

带有空格和制表符的vbscript文件,vbscript,Vbscript,得到了一个文件,我想分开并放在列中。看 与此类似,文件中的某些字段由空格分隔,其他字段由选项卡分隔。我想格式化,以便名称和地址等在列中分开 enter code here strStarter = "RT 29 MONTPELIER VA 23100 23100" intStarter = Len(strStarter) For i = intStarter to 2 Step -1 strChars = Space(i) strStarter = Replace(strStarter

得到了一个文件,我想分开并放在列中。看 与此类似,文件中的某些字段由空格分隔,其他字段由选项卡分隔。我想格式化,以便名称和地址等在列中分开

enter code here
strStarter = "RT 29 MONTPELIER VA 23100     23100"

intStarter = Len(strStarter)
For i = intStarter to 2 Step -1
strChars = Space(i)
strStarter = Replace(strStarter, strChars, " ")
 strStarter1 = Replace(strStarter, vbTab,  " " )
Next

arrStarter = Split(strStarter, " ")
arrStarter2= Split(strStarter1,vbTab)

 For Each strUnit in arrStarter
    Wscript.Echo strUnit
Next
我认为您有一个以制表符分隔的文件,可能在某些字段中有空格序列。那样的话,你应该

在vbTab上拆分以获取字段 规范化所有/部分字段中的空白 要规范化空格,可以对前导/尾随空格使用Trim,并将RegExp.Replace替换为+或+as模式和as替换


看一看

我为您创建了一个类似Ruby的拆分函数,用于根据正则表达式模式拆分字符串

'the following string contains a tab
strStarter = "RT 29 MONTPELIER BEFORETAB    AFTERTAB VA 23100     23100"

Function rsplit(string, pattern)
    Dim r
    Set r = New RegExp
    r.Global = True
    r.Pattern = "[^"&pattern&"]+"
    Set rsplit = r.Execute(string)
End Function

For each unit in rsplit(strStarter, " |\t") 
  wscript.echo unit
Next
给予


你用什么区别特征来分隔这些列?每个单词都有自己的专栏?您想将结果格式化为文本,还是要进一步处理它?你能给出一个期望输出的例子吗
RT
29
MONTPELIER
BEFORETAB
AFTERTAB
VA
23100
23100