当txt文本文件字数比较多时,读写很不方便,这时我们可借助以下excel vba代码实现txt文件的分割,分割后每个文件的字数及总文件的路径及全名只需在代码中替换即可。
Sub split_txtfile()
Dim bigfile As String, smallfile As String
Dim current_line As String, all_line As String
Dim file_count As Integer, wordcount As Integer
wordcount = 20000 ''分割后每个文件的字节数,可自己修改
''总文件的完整路径及名称需在下行代码进行替换
''以下为调用excel内置api
On Error Resume Next
With Application.FileDialog(msoFileDialogOpen)
.Title = "请选择你要的文件"
.AllowMultiSelect = True
.InitialFileName = "C:\Users\Administrator\Desktop\"
.Filters.Clear
.Filters.Add "all files", "*.txt,*.xls,*.xlsx,*.dwg"
If .Show = True Then
Set gof = .SelectedItems
bigfile_fullname = gof.Item(1)
Else: Exit Sub
End If
End With
''上面从on error resume next 行开始到此行为excel内置打开对话框的函数,如果不用excel vba,可删除上面代码,
''手工录入文件路径及全程 bigfile_fullname = "C:\Users\Administrator\Desktop\*.txt"
Open bigfile_fullname For Input As #1
Do While Not EOF(1)
Line Input #1, current_line
If all_line <> "" Then
all_line = all_line & vbCrLf & current_line
Else
all_line = current_line
End If
If Len(all_line) > wordcount Then
file_count = file_count + 1
small_file = Left(bigfile_fullname, Len(bigfile_fullname) - 4) & "_" & file_count & ".txt"
Open small_file For Output As #2
Print #2, all_line
Close #2
all_line = ""
End If
Loop
If all_line <> "" Then
file_count = file_count + 1
small_file = Left(bigfile_fullname, Len(bigfile_fullname) - 4) & "_" & file_count & ".txt"
Open small_file For Output As #2
Print #2, all_line
Close #2
all_line = ""
End If
Close #1
MsgBox "txt分割已完成" & Space(50) & vbCr & _
"vba代码二次开发qq:443440204", vbInformation, "版权所有qq:443440204"
End Sub
本文附有xlsm文件可供下载参考使用。