如何用vb 将txt文件中每四行变为一行

#2

apull2022-04-03 19:37

读取4行，拼接字符串，输出。

#3

约定的童话2022-04-03 20:13

整个txt文件发上来

#4

yuma2022-04-03 20:37

这是AI识图得到的文字，我在下面加了一行数据。

只有本站会员才能查看附件，请登录

程序代码：

Private Sub Form_Load()
Dim data As String, buffer As String, Split As String
Dim n As Long
n = 0
Split = "，" '你想要的分割符
Open "C:\Users\Admin\Desktop\1.txt" For Input As #1
Do While Not EOF(1)
n = n + 1
Line Input #1, buffer
If n Mod 4 = 0 Then
data = data + buffer + vbCrLf
Else
data = data + buffer + Split
End If
Loop
If Right(data, 1) = Split Then data = Left(data, Len(data) - 1) '对结果进行优化处理
Debug.Print data
Close #1
End Sub

运行结果如下图：

只有本站会员才能查看附件，请登录

[此贴子已经被作者于2022-5-15 08:47编辑过]

#5

独木星空2022-04-05 10:54

回复 4楼 yuma

一问一答，皆学问。学习了。

如何用vb 将txt文件中 每四行变为一行