vba进行aci文本编辑处理

haopengxiang24

lsdongjh 发表于 2018-6-21 11:05

这个我还真不太懂，我先看看试一试

一把小刀闯天下

haopengxiang24 发表于 2018-6-21 11:33
嗯，测试结果是正常的，非常感谢。还有点小问题，就是蓝色区域中有一行是空数据，并且第H、K、N、Q这四列 ...

什么叫取反向值？  n=-1 * n　的意思？

空数据行我已经跳过去了，“并且”是指空数据行的H、K、N、Q ？ 你这就是一个文字题，理解起来特别费劲。

先来朵小花提点精神，我现在有点事情，如果能看懂晚上给你写。

haopengxiang24

一把小刀闯天下 发表于 2018-6-21 15:58
什么叫取反向值？  n=-1 * n　的意思？

空数据行我已经跳过去了，“并且”是指空数据行的H、K、N、Q  ...

有一行是空的，需要跳过。
实际上在替换蓝色区域的时候，还应该先将第H、K、N、Q 这四列的数值先取相反数，也就是加负号。然后再替换。

一把小刀闯天下

haopengxiang24 发表于 2018-6-21 16:32
有一行是空的，需要跳过。
实际上在替换蓝色区域的时候，还应该先将第H、K、N、Q 这四列的数值先取相反 ...

'按我理解的取反，如果仅为取负自己修改一下，已做注释

'有问题留言

Option Explicit

Sub test()
  Dim arr, pth, i, j, k, n, brr, crr, ii, m
  pth = ThisWorkbook.Path & "\"
  With Sheets("底盘工况")
    brr = Range("f20:r20" & .Cells(Rows.Count, "f").End(xlUp).Row)
  End With
  Open pth & "event.aci" For Input As #1
  crr = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbNewLine)
  Close #1
  For ii = 1 To UBound(brr, 1)
    If Len(brr(ii, 1)) Then
      arr = crr: m = m + 1: n = 0
      For i = 0 To UBound(crr)
        n = n + 1
        If n + 1 > UBound(brr, 2) Then Exit For
        For j = i To UBound(crr)
          If InStr(arr(j), "ACT_" & n) Then
            For k = j To UBound(crr)
              If InStr(arr(k), "INPUT") Then
                If Len(brr(ii, n + 1)) > 0 Then
                  If (n + 1) Mod 3 = 0 Then brr(ii, n + 1) = -1 * brr(ii, n + 1)
                    ' 这是取反(原来为负变为正)，或者改为取负 -1 * abs(brr(ii, n + 1))
                  arr(k) = Replace(arr(k), "0", brr(ii, n + 1))
                End If
                j = UBound(crr): i = k: Exit For
              End If
            Next
          End If
      Next j, i
      Open pth & "event" & m & ".aci" For Output As #1
      Print #1, Join(arr, vbNewLine)
      Close #1
    End If
  Next
End Sub

haopengxiang24

一把小刀闯天下 发表于 2018-6-21 19:35
'按我理解的取反，如果仅为取负自己修改一下，已做注释

'有问题留言

多谢您啦。完全正确了