求助，关于vba操作txt的问题

风过天涯

vba有可能将多个txt文件按txt中某一字符，让其每个txt拆分成两个txt吗？附件已上传，谢谢

fzxba

1. Sub test0()
   
2.   Dim ar, i As Integer
   
3.   Dim p As String, f As String
   
4.   Dim s As String, t As String
   
5.   p = ThisWorkbook.Path & "\"
   
6.   f = Dir(p & "*.txt")
   
7.   While Len(f)
   
8.     Open p & f For Input As #1
   
9.     s = StrConv(InputB(LOF(1), #1), vbUnicode)
   
10.     t = t & vbCrLf & s
    
11.     Close #1
    
12.     f = Dir
    
13.   Wend
    
14.   p = p & "Result\"
    
15.   If Dir(p, vbDirectory) = "" Then MkDir p
    
16.   s = String(3, "*")
    
17.   ar = Split(t, s)
    
18.   For i = 0 To UBound(ar)
    
19.     t = ar(i)
    
20.     If Len(Replace(t, vbCrLf, "")) Then
    
21.       Open p & Split(t, "：")(0) & ".txt" For Output As #2
    
22.       Print #2, s & t
    
23.       Close #2
    
24.     End If
    
25.   Next
    
26. End Sub

复制代码

风过天涯

fzxba 发表于 2023-2-6 15:24

大佬有可能输出文件带上原来的txt名吗，就像1王五1赵六2李达2二狗

fzxba

风过天涯 发表于 2023-2-6 15:51
大佬有可能输出文件带上原来的txt名吗，就像1王五1赵六2李达2二狗

1. Sub test0()
   
2.   Dim ar, i As Integer
   
3.   Dim p As String, pt As String, f As String
   
4.   Dim s As String, t As String
   
5.   s = String(3, "*")
   
6.   p = ThisWorkbook.Path & "\"
   
7.   pt = p & "Result\"
   
8.   If Dir(pt, vbDirectory) = "" Then MkDir pt
   
9.   f = Dir(p & "*.txt")
   
10.   While Len(f)
    
11.     Open p & f For Input As #1
    
12.     ar = Split(StrConv(InputB(LOF(1), #1), vbUnicode), s)
    
13.     Close #1
    
14.     For i = 0 To UBound(ar)
    
15.       t = Trim(ar(i))
    
16.       If Len(Replace(t, vbCrLf, "")) Then
    
17.         Open pt & Replace(f, ".txt", Split(t, "：")(0) & ".txt") For Output As #2
    
18.         Print #2, s & t
    
19.         Close #2
    
20.       End If
    
21.     Next
    
22.     f = Dir
    
23.   Wend

复制代码

陆离Lowry

。。。。。。。。。。。。。

fzxba

fzxba 发表于 2023-2-6 16:01

风过天涯

fzxba 发表于 2023-2-6 16:13

好像不太对

风过天涯

fzxba 发表于 2023-2-6 16:13

代码没问题，应该是我这边自己的问题，我再消化一下代码先

风过天涯

fzxba 发表于 2023-2-6 16:13

基本上整明白了，那像这种有可能保留原来文件名，生成的文件分放在两个文件夹吗

fzxba

风过天涯 发表于 2023-2-6 21:15
基本上整明白了，那像这种有可能保留原来文件名，生成的文件分放在两个文件夹吗

可以，但不明白具体要求。