Question

怎样用vb制作这种文本分割程序?

程序所在目录下有一文件夹abc，abc文件夹里面有一个名字为123.txt的文本文件，内容是以分号分隔的内容。形式如：
123456;123anc;aaa555;666abc;888999;bbb555;666abcde;123456;123anc;aaa555;666abc;888999;bbb555;666abcde;123456;123anc;aaa555;666abc;888999;bbb555;666abcde……
如果分号分隔的内容是一个个元素，现在想把上面的文本文件分割成多个txt文本文件，每个文件由上面文件的若干个元素构成，且内容这样排列：
（第一个文件这样排列）：123456;123anc;aaa555
（第二个文件这样排列）：666abc;888999;bbb555
每个文件由原txt文件的多少元素构成，应该可以自由设定。分割完成时，弹出对话框：“分割完成，共分割多少个文件。”
用vb怎样实现呢？请写出代码

Answer 1

整个文件有回车符号吗？
------------------
分割后文件需要保存吗？文件名的格式怎么样？
就是3个字符串组成一个文件？

追问

没有

追答

保存后的文件名格式？

追问

如果原文件名是abc.txt，保存后的文件名格式是：abc1.txt、abc2.txt、abc3.txt……。和原文件在一个文件夹即可

追答

知道了，写完给你

追问

123.txt可能存放于电脑任何文件夹。不一定在程序目录下。
分割最好通过打开原文件的路径来实现。

追答

Private Sub Command1_Click()
Dim path As String, i As Long, n As Integer, arr, s As String
path = App.path & IIf(Right(App.path, 1) = "\", "", "\")
path = path & "abc\"
If Dir(path & "abc.txt") "" Then
Open path & "abc.txt" For Input As #1
arr = Split(StrConv(InputB(LOF(1), 1), vbUnicode), ";")
Close #1
For i = 0 To UBound(arr)
s = s & arr(i) & ";"
If (i + 1) Mod 3 = 0 Then
n = n + 1
s = Left(s, Len(s) - 1)
Open path & "abc-" & n & ".txt" For Output As #1
Print #1, s
Close #1
s = ""
End If
Next
If Len(s) > 0 Then
n = n + 1
s = Left(s, Len(s) - 1)
Open path & "abc-" & n & ".txt" For Output As #1
Print #1, s
Close #1
End If
End If

追问

经测试，你的代码实现了要求。但有两个疑问请教：
If (i + 1) Mod 3 = 0是什么意思？
If Len(s) > 0是什么意思？

追答

1、三个数据为一组，数组下标为0，所以加1求余为0，就是被3整除作为一个文件保存
2、你的数据不一定是3的倍数，可能到最后还有2个或一个，但条件判断是3的倍数，所以结束数组循环时只要判断一下s的长度就知道这个s是否已经保存，因为写文件后s置空了，也就是退出循环后如果s不为空，数据肯定不是3的倍数。
不知道理解了没有啊。

追问

另外有一个问题请解决：如果文本中的标点不一定是分号，也可以是逗号、句号、顿号怎么办？请通过修改上面的代码解决这个问题。

追答

如果也是3个数据为一组保存那很简单：
做个循环使用replace处理一下，把不同的符号替换成特定的符号，然后再split，接下来就是我的代码了。
如果不是得根据要求、条件去处理，反正都是体力活。

追问

请在arr = Split(StrConv(InputB(LOF(1), 1), vbUnicode), ";")前面加个代码解决其他标点的问题，你就解决一个顿号吧：、，其他的我依照你的代码解决

追答

s=StrConv(InputB(LOF(1), 1), vbUnicode)
arr=split("， ； 、 ：")
for i=0 to ubound(arr)
s=replace(s,arr(i),"|")
next
arr=split(s,"|")
接下来就用我的代码，再看不懂那你还是洗洗早点睡觉吧

追问

昨天没有看明白就洗洗早点睡了。请你再把修改后的代码全部完整发一遍，谢谢

追答

'源文件abc.txt：123456；23anc：aaa555；666abc；888999：bbb555；666abcde；123456：123anc；aaa555；666abc；888999；bbb555；666abcde，123456；123anc；aaa555；666abc；888999；bbb555、khkjhkjhk、khkjhkjhk
'使用的全角，最后输出为半角
Private Sub Command1_Click()
Dim path As String, i As Long, n As Integer, arr, s As String
path = App.path & IIf(Right(App.path, 1) = "\", "", "\")
path = path & "abc\"
If Dir(path & "abc.txt") "" Then
Open path & "abc.txt" For Input As #1
s = StrConv(InputB(LOF(1), 1), vbUnicode)
Close #1
arr = Split("， ； 、 ：")'这里指定4个标识，可以自己添加或删除
For i = 0 To UBound(arr)
s = Replace(s, arr(i), "|")
Next
arr = Split(s, "|")
s = ""
For i = 0 To UBound(arr)
s = s & arr(i) & ";"
If (i + 1) Mod 3 = 0 Then
n = n + 1
s = Left(s, Len(s) - 1)
Open path & "abc-" & n & ".txt" For Output As #1
Print #1, s
Close #1
s = ""
End If
Next
If Len(s) > 0 Then
n = n + 1
s = Left(s, Len(s) - 1)
Open path & "abc-" & n & ".txt" For Output As #1
Print #1, s
Close #1
End If
End If
End Sub

Answer 2

看来不用我出手了