Question

vb分割txt文本

求：
用vb编写txt格式的文本分割程序代码，要求把文本按一定大小进行分割
并保存，我要代码！能行就给分！
对于yngsxx的答案，你的S 的值能不能弄成从文件直接读取
比如 c:\help\01.txt 把它的内容直接赋值给S.你的S的值是你自己填写的，本来我把S从text里读取，可TXT 文本太大，TEXT装不下，我需要直接从文件目录读取出来！

Answer 1

Sub SplitTxt(S As String, nLength As Long, strFileName As String)
'S，要拆分的内容
'nLength 要拆分的单位长度
'strFileName 生成的文件名，会自动在后面加上编号.txt,如 我的文件001.txt 我的文件002.txt
Dim N As Long
N = Len(S)
For i = 1 To N Step nLength
tmp = Mid(S, i, nLength)
Open "C:\" & strFileName & Format((i - 1) \ nLength + 1, "00") & ".txt" For Output As #1 '如果比较多，有几百则改成 000
'上面是存放到C:\,也可以换成 app.path,存放到应用程序所在的目录下
Print #1, tmp
Close #1
Next
End Sub

Private Sub Command1_Click()
Dim S As String
S = "此处放文本的来源此处放文本的来源此处放文本的来源此处放文本的来源此处放文本的来源此处放文本的来源此处放文本的来源此处放文本的来源此处放文本的来源此处放文本的来源此处放文本的来源此处放文本的来源此处放文本的来源此处放文本的来源此处放文本的来源此处放文本的来源此处放文本的来源此处放文本的来源此处放文本的来源此处放文本的来源此处放文本的来源此处放文本的来源此处放文本的来源此处放文本的来源此处放文本的来源此处放文本的来源此处放文本的来源此处放文本的来源此处放文本的来源"
Call SplitTxt(S, 20, "我的文件")
End Sub

Sub SplitTxt(S as String,nLength as Long,strFileName as String)

End Sub

Answer 2

我默认了文件D:\A.Txt，请自己修改。建一个Command1。
代码如下。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Private Sub Command1_Click()
Open "d:\a.txt" For Input As 1
Open "d:\a1.txt" For Output As 2
Open "d:\a2.txt" For Output As 3
Dim l As Long, t As Long
l = InputBox("请输入分割成的第一个文件行数")
Do While EOF(1) = False
Dim s As String
Line Input #1, s
t = t + 1
If t <= l Then
Write #2, s
Else
Write #3, s
End If
Loop
Close
MsgBox "任务完成"
End Sub

Answer 3

一定大小分割~

用len....

定义在一个循环内
如果len长度一样，就切，然后保存出去一份...
接着看，还有内容，就切。没有结束~

Answer 4

http://topic.csdn.net/t/20050621/07/4095492.html

具体不行我可以帮你调试。。不过编程人可不能懒啊。。