生成同路径txt，谢谢liulang0808和ykcbf1100老师！

lhj323323

liulang0808 发表于 2025-3-28 07:39
增加了一段判断语句，看看是否可行吧

完全正确！

再次感谢老师出手。

ykcbf1100

lhj323323 发表于 2025-3-28 07:45
我觉得，应是如下的历遍逻辑，要好一些：

【自上而下】历遍123.txt

增加一个判断，用来判断CCC的位置

lhj323323

liulang0808 发表于 2025-3-28 07:39
增加了一段判断语句，看看是否可行吧

版主老师：
能否加一个止点？
或者，止于下一次出现英文格式的左括号[

lhj323323

ykcbf1100 发表于 2025-3-28 08:00
增加一个判断，用来判断CCC的位置

老师：
生成的数据，
缺少123.txt原有的[AAA]和[BBB]的内容。
同时，22楼的源码里，能否增加【一个止点】的判断
比如，[CCC]之下，还可能存在[DDD]或[FFF]----------比如像23楼那种123.txt
能否止于下一次出现英文格式的左括号[

ykcbf1100

lhj323323 发表于 2025-3-28 08:20
老师：
生成的数据，
缺少123.txt原有的[AAA]和的内容。

改好了，你再试一下。

liulang0808

Sub test1()
    Dim Myr%, i%, j%, m%, n%
    Dim arr, brr(), Crr
    Dim d As Object
    Dim myname$, str$

Application.ScreenUpdating = False
    Set d = CreateObject("Scripting.Dictionary")
    myname = ThisWorkbook.Path & "\123.txt"

    If Dir(myname) = vbNullString Then MsgBox myname: Exit Sub
    Open myname For Input As #1
    arr = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbNewLine)
    Close #1
   
    With Sheet1
         Crr = .Range("a1:b" & .Range("a65536").End(xlUp).Row + 1)
    End With
    For j = 2 To UBound(Crr)
        If Len(Crr(j, 2)) > 0 Then d(Crr(j, 1)) = Crr(j, 2)
    Next j
    nm = 0
    For i = 0 To UBound(arr) '读取123.txt原有数据
        If arr(i) = "[CCC]" Then
            For j = i + 1 To UBound(arr)
                If InStr(arr(j), "[") > 0 Then Exit For
                k = Left(arr(j), 5)
                If d.exists(k) Then arr(j) = k & "=" & d(k)
            Next j
            Exit For
        End If
    Next
   

    Open ThisWorkbook.Path & "\456.txt" For Output As #1
    Print #1, Join(arr, vbNewLine)
    Close #1

Application.ScreenUpdating = True
End Sub

liulang0808

再次修改，供参考。。。。。。

lhj323323

ykcbf1100 发表于 2025-3-28 08:26
改好了，你再试一下。

完全正确了！
鲜花只剩1朵了
明日奉上。

再次感谢老师的相助！

半百

lhj323323 发表于 2025-3-28 06:18
半百老师：
按6楼的内容，修改了三处，如下
但生成的txt，是空文档，无内容

改2那里不是全不要，划红线的不要

lhj323323

ykcbf1100 发表于 2025-3-28 08:26
改好了，你再试一下。

好深奥！