Question

Set objReadFile = objFSO.OpenTextFile(objFile.Path, ForReading)
    strAll = Split(objReadFile.ReadAll, vbCrLf, -1, vbTextCompare) 'Gets each line from file
    i = LBound(strAll)
    Do While i < UBound(strAll)
       If (InStr(1, strAll(i), "DAU SNo.-C0", vbTextCompare) > 0) Then
          i = i + 4 'Skip 4 lines to get to first SN
          Do Until InStr(1, strAll(i), "+", vbTextCompare) > 0 'Loop until line includes "+"
             strSNO = Split(strAll(i), "|", -1, vbTextCompare)
             'put strSNO into next cell in column A
             **objSheet.Cells.Offset(1,0).Value = Trim(strSNO(1))**
             i = i + 1
          Loop
       End If
    i = i + 1
    Loop

此代码成功拆分文本文件，并将我想要的两个值放在strSNO（1）和strSNO（2）中。我想将它们写入A列第2行和第B行第2行，然后在循环的下一次迭代中将第3行中的下一个值放入。我尝试了偏移方法，它给出了错误。我找到的所有帮助都是针对VBA的。任何人都可以告诉我什么放在代码是粗体的地方修复它？

编辑：

解决了它。这就是我所做的：

strAll = Split(objReadFile.ReadAll, vbCrLf, -1, vbTextCompare) 'Gets each line from file
    i = LBound(strAll)
    c=2
    Do While i < UBound(strAll)
       If (InStr(1, strAll(i), "DAU SNo.-C0", vbTextCompare) > 0) Then
          i = i + 4 'Skip 4 lines to get to first SN
          Do Until InStr(1, strAll(i), "+", vbTextCompare) > 0 'Loop until line includes "+"
            strSNO = Split(strAll(i), "|", -1, vbTextCompare) 
            i = i + 1
            objSheet.Cells(c,1).Offset(1,0).Value = Trim(strSNO(1))
            objSheet.Cells(c,2).Offset(1,0).Value = Trim(strSNO(2))
            c=c+1
            Loop
      End If
    i = i + 1
    Loop

Answer 1

替换

objSheet.Cells.Offset(1,0).Value = Trim(strSNO(1))

与

objSheet.Cells(i,1).Value = Trim(strSNO(1))
objSheet.Cells(i,2).Value = Trim(strSNO(2))

修改：您确定要strSNO的字段1和2吗？ VBScript数组是从0开始的，因此第一个索引是0，而不是1。

要找到错误，请添加一些调试代码：

On Error Resume Next
objSheet.Cells(i,1).Value = Trim(strSNO(1))
If Err Then
  WScript.Echo i & ": " & strAll(i)
  WScript.Echo "strSNO(1) = " & strSNO(1)
  WScript.Echo "strSNO(1) is of type " & TypeName(strSNO(1))
End If
Err.Clear
objSheet.Cells(i,2).Value = Trim(strSNO(2))
If Err Then
  WScript.Echo i & ": " & strAll(i)
  WScript.Echo "strSNO(2) = " & strSNO(2)
  WScript.Echo "strSNO(2) is of type " & TypeName(strSNO(2))
End If
On Error Goto 0

如果问题证明strAll(i)某些|不包含i，那么Split()会生成一个只包含一个元素的数组，您可以通过以下方式解决这个问题：

strSNO = Split(strAll(i) & "|", "|", -1, vbTextCompare)

如何使用VBscript在Excel的单元格中输入值

1 个答案: