带有空格和制表符的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