小弟想试着做一个文本文件分割小程序，遇到了下列问题！

Question

本帖最后由 bcrun 于 2011-08-16 12:09:53 编辑

Answer 1

a=字数/文件数  1532/7=218.85=219
If a*文件数>=字数 then
b=a
else
b=a+1
end if
b即为得到的需要分割的每个文件的大小最大值
然后根据这个值，参考网上有的：根据字符数分割文本文件

Answer 2

感谢三位的回复，但是从文本文件中读取字数，要用到filesysobject，如果文本文件中只有文字和标点还好，如果即有回车、又有空行，这样统计出来的字数就不准确了，怎么办

Answer 3

使用open采用Binary方式打开文件，然后分割。

Answer 4

首先，再次谢谢朋友们
楼5和楼6的办法，我都想过也试了。
楼Veron_04朋友，我在用二进制打开文本文件时，或用指针分，或用字节分，都不行。
但指针这个东西，却是在分割时很有用。
楼6worldy朋友，获取文本文件的行数确实不难，我也成功了获取了行数，但是，如果是要4行为一个分割文本，第二次，取5至9行到第二个分割文件中，这是我遇到的问题！不过，反复思考按行来分隔，确实是一个好的方法，只不过还没能实现，大家再想想办法吧!我再试试
 

Answer 5

这有什么困难啊？
在扫描vbCrlf的时候，使用一个数组或者集合记录vbCrlf出现的位置，分割不就是将关注的行位置之间的数据取出来而已？

Answer 6

这其实没有万全的分割法的；
1、按字节分，这肯定是不行的，分割出来的文档有可能不可读；
2、按字分，可以确保文档可读，但会造成一行（或一段）分割在不同文档中；
3、按行（或段落），（行和段落其实是Word等排版软件的概念，这里把行或段理解成是以VbCrLf分割的),这种方式看起来不错，不过如果遇到长行（大段）就麻烦了，极端的情况是一个文件只有一大段，那就无法分割了。
总的来看，程序好写，关键是LZ要对这些方式的取舍作出决定。

Answer 7

假设窗体上有文本框text1~text4Private Sub Command1_Click()
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim i As Integer
Dim tx() As Byte
Dim nm As StringCom1.ShowOpen
Com1.DialogTitle = "打开文件"
Com1.Filter = "文本文件|*.txt|"
Open Com1.FileName For Binary As #1
a = LOF(1) / 4 + 0.5
ReDim tx(a)For b = 1 To 4
Get #1, Seek(1), tx
Me("Text" & b).Text = StrConv(tx, vbUnicode)Next
Close #1
End Sub

Answer 8

修改一下：
a = IIf(LOF(1) Mod 4, Int(LOF(1) / 4) + 1, LOF(1) / 4)

Answer 9

对以上回的想了想，如果中英文混排还是有可能出错的，如果文件不是很大，可以先全部读进来，转换后再分。Private Sub Command1_Click()
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim i As Integer
Dim tx As String
Dim nm As StringCom1.ShowOpen
Com1.DialogTitle = "打开文件"
Com1.Filter = "文本文件|*.txt|"
Open Com1.FileName For Binary As #1
tx = StrConv(InputB(LOF(1), 1), vbUnicode)a = IIf(Len(tx) Mod 4, Int(Len(tx) / 4) + 1, Len(tx) / 4)For b = 1 To 4
Me("Text" & b).Text = Mid(tx, a * (b - 1) + 1, a)Next
Close #1
End Sub

Answer 10

支持。用InputB函数才是正解。

Answer 11

谢谢猴哥的热情讲解。不过小弟实在是资质太差，里面有些问题学没想通
1、a = IIf(Len(tx) Mod 4, Int(Len(tx) / 4) + 1, Len(tx) / 4)
这个我上网搜了一上明白了，我理解的意思是：如果文本内容平均分成4份，如果有余数就把整数部分加1,如果没有则取第二部分值。
2、但是我对于tx = StrConv(InputB(LOF(1), 1), vbUnicode）不明白，什么意思？上网一查：
StrConv(string, conversion, LCID)
string 必要参数。要转换的字符串表达式。 
conversion 必要参数。Integer。其值的和决定转换的类型。 
LCID 可选的。如果与系统LocaleID不同，则为LocaleID（系统LocaleID为缺省值。） 这句话不明白?
vbUnicode 64 根据系统的缺省码页将字符串转成 Unicode

Answer 12

根据MSDN所讲:   
  "要将整个文件复制到变量，请使用InputB 函数将字节从文件复制到变量。因为InputB函数返回一个   ANSI字符串，您必须使用 StrConv 函数将 ANSI 字符串转换为一个如 UNICODE  字符串：   
  LinesFromFile   =   StrConv(InputB(LOF(FileNum),   FileNum),   vbUnicode)"   
    
注意 对于文本文件中包含的字节数据要使用 InputB 函数。对于 InputB 来说，number 指定的是要返回的字节个数，而不是要返回的字符个数。那么这一句InputB(LOF(1),   1), 应该理解为从字节1开始，返回文本文件的所有字节  

Answer 13

Private Sub Command1_Click()
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim i As Integer
Dim tx As String
Dim txtmp() As String
Dim nm As String
Text1 = "": Text2 = "": Text3 = "": Text4 = "":
Com1.ShowOpen
Com1.DialogTitle = "打开文件"
Com1.Filter = "文本文件|*.txt|"
Open Com1.FileName For Binary As #1
tx = StrConv(InputB(LOF(1), 1), vbUnicode)
txtmp = Split(tx, vbCrLf)
a = UBound(txtmp) + 1
b = IIf(a Mod 4, Int(a / 4) + 1, a / 4)
txtmp数组包含总的文本，每元素一个包含一个三硬回车行的内容（不包含回车).
a是总行数，b是每个文件能分的行数，你自已去处理连接和存盘问题吧。

Answer 14

又大补了一下split函数:
作用：返回一个从零开始的一维数组，其中包含指定数量的子字符串。 
Expression 
必选项。字符串表达式，包含子字符串和分隔符。如果 Expression 是零长度的字符串 ("")，Split 函数将返回长度为一的数组，其中包含一个空字符串。 
Delimiter 
可选项。单个字符，用于标识子字符串的界限。如果省略了 Delimiter，则假定空白字符 ("") 为分隔符。如果 Delimiter 为零长度字符串，则返回包含整个 Expression 字符串的单元素数组。 
txtmp = Split(tx, vbCrLf)
这句话的作用是，从把tx的内容以回车符为分界线，赋给一维数组txtmp，行数吗就比数组元素多1,然后再取每个分文件的行数