1

分割して列に入れたいファイルを取得しました。ファイル内の一部のフィールドはスペースで区切られ、他のフィールドはタブで区切られているように見えます。名前や住所などを列で区切るようにフォーマットしたいと思います。

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
4

2 に答える 2

0

正規表現パターンに基づいて文字列を分割する 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
于 2017-03-08T13:12:48.060 に答える