Question

vb中拆分txt文本内容

求vb代码，在"C:\aa.txt"中的aa文本中有1500行，每行又有60个字符。我想要把这个文本文档，取每行的前45个字符，并取150行存在另一个文本中，取名为001.txt。接着就151行开始取150行（也是要截取前45个字符）存在002.txt文本。依此类推。。初学vb者希望有程序有注释！！谢谢！！
你们好！希望能给出具体的代码，并带注释更好。谢谢！

Answer 1

完整的代码给你不利与你学习，这里给出关键部分，自己看看应该就会了。
＝＝＝＝＝＝＝＝＝＝按行读取文件的示例========================
Dim TextLine
Open "TESTFILE" For Input As #1 ' 打开文件。
Do While Not EOF(1) ' 循环至文件尾。
Line Input #1, TextLine ' 读入一行数据并将其赋予某变量。
Debug.Print TextLine ' 在立即窗口中显示数据。
Loop
Close #1 ' 关闭文件。
*****************************************************************
＝＝＝＝＝＝＝＝＝＝取字符串的一部分的＝＝＝＝＝＝＝＝＝＝＝＝＝
Left(str,len) str,源字符串，最后的结果来自于此字符串中,len要取多长
Mid(str,st,len) str,源字符串，从哪个位置开始取，len 取多长
Right(str,len) str,源字符串，最后的结果来自于此字符串中,len要取多长。与Left(str,len）的区别就是LEFT是从字符串的最左边开始，RIGHT是从最右边开始
*****************************************************************
＝＝＝＝＝＝＝＝＝文件输出示例＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Open "TESTFILE" For Output As #1 ' 打开输出文件。
Print #1, "This is a test" ' 将文本数据写入文件。
Print #1, ' 将空白行写入文件。
Print #1, "Zone 1"； Tab ； "Zone 2" ' 数据写入两个区（print zones）。
Print #1, "Hello" ； " " ； "World" ' 以空格隔开两个字符串。
Print #1, Spc(5) ； "5 leading spaces " ' 在字符串之前写入五个空格。
Print #1, Tab(10) ； "Hello" ' 将数据写在第十列。

' 赋值 Boolean、Date、Null 及 Error 等。
Dim MyBool, MyDate, MyNull, MyError
MyBool = False : MyDate = #February 12, 1969# : MyNull = Null
MyError = CVErr(32767)
' True、False、Null 及 Error 会根据系统的地区设置自动转换格式。
' 日期将以标准的短式日期的格式显示。
Print #1, MyBool ； " is a Boolean value"
Print #1, MyDate ； " is a date"
Print #1, MyNull ； " is a null value"
Print #1, MyError ； " is an error value"
Close #1 ' 关闭文件。
****************************************************************
==============If语句＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
IF 条件 then
条件为真是要执行的操作
Else
条件为假时要执行的操作
End if
*****************************************************************

Answer 2

dim i as integer , j as integer ,s as string
open "c:\aa.txt" for input as #1
for i = 1 to 10'每次取150行，所以要取10次
open "c:\" & format(i,"000") & ".txt" for output as #2'打开第i个文档，准备保存
for j = 1 to 150'就是每次取的150行
line input #1 ,s'从第一行开始，赋值给字符串s
s=left(s,45)'取s的左边45个字符
print #2 ,s'往打开的第i个文件里写文字
next
close 2'写完150行，关闭第i个文件
next
close 1
大概就是这样，没调试，可能有点小错误。

Answer 3

我试验过了，添加个按钮，接分
Private Sub Command1_Click()
Dim a(0 To 9) As String
Dim b(0 To 9) As String
Open "c:\aa.txt" For Input As #1
Do Until EOF(1)
n = n + 1
Line Input #1, a(I)
b(I) = b(I) & Mid(a(I), 1, 45) & vbCrLf
If n Mod 15 = 0 Then
I = I + 1
End If
Loop
Close #1
For I = 0 To 9 Step 1
Open "c:\00" & CStr(I) & ".txt" For Output As #1
Print #1, b(I)
Close #1
Next I
End Sub

Answer 4

你先导入 open "" for input as #1
然后确定长度 做一个mid循环，45次即停止
然后再分段
确定输出的行数
然后再输出output
具体怎么写等我有空再告诉你

Answer 5

打开
dim a,b
open 地址 for input as #1
a = line #1
b = mid (a,46,len(a))

循环
dim i
for i = 0 to len(a) / 45
open app.path & "/" & i & ".txt" for output as #2
print #2,b
end if

写乱了点
自己分析下吧