求助：VBA如何改写文本数据？

czr0373

如何用EXCEL VBA，把附件文本数据第2、3列各自加减一个数值
比如第2列+0.4，第3列-0.3
要求操作中并不打开文本

一把小刀闯天下

Option Explicit

Sub test()
  Dim i, j, filename, arr, t
  ReDim spclen(2 To 3)
  filename = ThisWorkbook.Path & "\text.txt"
  Open filename For Input As #1
  arr = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbNewLine)
  Close #1
  For i = 0 To UBound(arr, 1)
    If InStr(arr(i), "#") = 1 Then
      For j = i + 1 To UBound(arr)
        If InStr(arr(j), "END") = 1 Then: Exit For
        t = Split(arr(j), ",")
        spclen(2) = Len(t(1)) - Len(Trim(t(1)))
        spclen(3) = Len(t(2)) - Len(Trim(t(2)))
        t(1) = Space(spclen(2)) & Format(Val(t(1)) + 0.4, "0.000")
        t(2) = Space(spclen(3)) & Format(Val(t(2)) - 0.3, "0.000")
        arr(j) = Join(t, ",")
      Next
    End If
  Next
  Open filename For Output As #1
  Print #1, Join(arr, vbNewLine)
  Close #1
End Sub

czr0373

一把小刀闯天下 发表于 2018-8-10 10:09
Option Explicit

Sub test()

请教一下：

文本被执行aa或bb后，cc能通过

反过来，执行cc后，aa和bb不能执行

cc是老师您的成果，aa,bb是其它老师的成果？

一把小刀闯天下

czr0373 发表于 2018-8-10 11:34
请教一下：
文本被执行aa或bb后，cc能通过
反过来，执行cc后，aa和bb不能执行cc是老师您的成果，aa,bb ...

定位方式不一样，我先找开始标志“#”，找到后从标致行下一行开始处理数据，如果碰到结束标志“END”直接退出处理（先判断这个标志）。这样容错的方法可能会更好些。一个问题为什么要用3种方法

czr0373

一把小刀闯天下 发表于 2018-8-10 12:05
定位方式不一样，我先找开始标志“#”，找到后从标致行下一行开始处理数据，如果碰到结束标志“END”直接 ...

是三种方法解决了三个问题?
老师能否帮忙把这个错消除一下？万分谢谢

一把小刀闯天下

czr0373 发表于 2018-8-10 12:08
是三种方法解决了三个问题?
老师能否帮忙把这个错消除一下？万分谢谢

你把所有问题都放上了，如果能看懂我再给你修改

czr0373

一把小刀闯天下 发表于 2018-8-10 12:16
你把所有问题都放上了，如果能看懂我再给你修改

Sub bb()
    Dim Ar, k&, i&, t1, t2, t3, br, x, st, x2, x3, y, r2, r3
    Open ThisWorkbook.Path & "\text.txt" For Input As #1
    Ar = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbCrLf)
    Reset
    For i = 3 To UBound(Ar) - 2
        t1 = Mid(Ar(i), 1, 43)
        t2 = Mid(Ar(i), 44, 16): x2 = Val(Trim(Mid(Ar(i), 14, 15))): r2 = Val(Trim(Mid(Ar(i + 1), 14, 15)))
        If i = 3 Then
            t2 = 1: x = t2
        Else
            x3 = Val(Trim(Mid(Ar(i - 1), 29, 15)))
            r3 = Val(Trim(Mid(Ar(i), 29, 15)))
            If x2 <> x3 Then
                x = x + 1
                If r2 = r3 Then
                    y = 1
                    t2 = x & "(" & y & ")"
                Else
                    y = 0
                    t2 = x
                End If
            Else
                y = y + 1
                t2 = x & "(" & y & ")"
            End If
        End If
        t2 = WorksheetFunction.Rept(" ", 16 - Len(t2) - 1) & t2 & ","
       t3 = Mid(Ar(i), 60, Len(Ar(i)) - 59)
        Ar(i) = t1 & t2 & t3
    Next
    st = Join(Ar, vbCrLf): st = Left(st, Len(st) - 2)
    Open ThisWorkbook.Path & "\text.txt" For Output As #1
    Print #1, st
    Reset
End Sub

一把小刀闯天下

在For i = 3 To UBound(Ar) - 2  下面插入一行代码试试：

if len(Ar(i)) =3 then exit for

---他这定位方式有点问题

或者--------
If InStr(Ar(i), "END") Then Exit For  '更靠谱些

或者--------
if instr(ar(i),",")=0 then exit for  '觉得这最好

czr0373

一把小刀闯天下 发表于 2018-8-10 13:32
在For i = 3 To UBound(Ar) - 2  下面插入一行代码试试：

if len(Ar(i)) =3 then exit for

嗯，过了，非常高兴！
后面两句都管用！
再次感谢！！！