Windows VBS脚本选项卡不为空

前面我制作了一个脚本，从一个选项卡分隔的文本文件中获取某些行，第一行包含以下每一行，并保存到自己的.txt文件中。（因此这些.txt文件只有两行文本）

然后，它会将每个.txt文件移动到给定选项卡中的文本，在本例中，它是（1）（3）（第二行-第四个选项卡）

这是第一部分的代码

Call TwoDimensionArrayTest

Sub TwoDimensionArrayTest

Dim fso
 Dim oFile
 Dim arrline
 Dim arrItem
 Dim i
 Dim arrMain()
 Dim sFileLocation, strResults

 Const forReading = 1

strFolder = "\\nas001\Production\RxCut\In Design Implementation\build\" '"
Set objFSO = CreateObject("Scripting.FileSystemObject")
For Each objFile In objFSO.GetFolder(strFolder).Files
 If Right(LCase(objFile.Name), 4) = LCase(".txt") Then

 ''# The file contains on each line:
 ''# Text1 (tab) Text2 (tab) Text3 (tab) Text4
 ''# Text5 (tab) Text6 (tab) Text7 (tab) Text8
 ''# etc etc

Set fso = CreateObject("Scripting.FileSystemObject")
  sFileLocation = objFile.Name

  Set oFile = fso.OpenTextFile(objFile.Name, forReading, False)

 Do While oFile.AtEndOfStream <> True
  strResults = oFile.ReadAll
 Loop

 ''# Close the file
 oFile.Close

''# Release the object from memory
 Set oFile = Nothing

''# Return the contents of the file if not Empty
 If Trim(strResults) <> "" Then

  ''# Create an Array of the Text File
  arrline = Split(strResults, vbNewLine)
 End If

 For i = 0 To UBound(arrline)
  If arrline(i) = "" Then
   ''# checks for a blank line at the end of stream
   Exit For
  End If 

  ReDim Preserve arrMain(i)

   arrMain(i) = Split(arrline(i), vbTab)

 Next

      fso.MoveFile sFileLocation, arrMain(1)(3) & ".txt"
 End If 
 Next
End Sub ''# TwoDimensionArrayTest

当然，这取决于我上面提到的关于notnull字段的内容

非常感谢您的帮助，

---

乔

我猜最后是这样的（也许）：

如果不为空（Rs（“arrMain（1）（4）”），则

Set-sDirectory=“/co-brand”

如果结束

  fso.MoveFile sFileLocation, sDirectory, arrMain(1)(3) & ".txt" 

如果不为空（Rs（“arrMain（1）（5）”），则

Set sDirectory=“/tri brand”

如果结束

  fso.MoveFile sFileLocation, sDirectory, arrMain(1)(3) & ".txt" 

如果不为空（Rs（“arrMain（1）（6）”），则

Set-sDirectory=“/generic”

如果结束

  fso.MoveFile sFileLocation, sDirectory, arrMain(1)(3) & ".txt"