看别人写的文件分割工具挺好用，用ＶＢ学着写了一个，附源代码。
version 5.00
object = "{f9043c88-f6f2-101a-a3c9-08002b2f49fb}#1.2#0"; "comdlg32.ocx"
begin vb.form frmmain
borderstyle = 1 'fixed single
caption = "文件分割工具"
clientheight = 2880
clientleft = 45
clienttop = 330
clientwidth = 3795
keypreview = -1 'true
linktopic = "form1"
maxbutton = 0 'false
minbutton = 0 'false
scaleheight = 2880
scalewidth = 3795
startupposition = 3 'windows default
begin vb.textbox txtcode
backcolor = &h8000000f&
height = 3945
left = 30
locked = -1 'true
multiline = -1 'true
scrollbars = 2 'vertical
tabindex = 13
top = 2910
visible = 0 'false
width = 3705
end
begin vb.frame frmcontainer
height = 2865
left = 0
tabindex = 0
top = 30
width = 3735
begin vb.commandbutton cmdunit
caption = "合 并"
enabled = 0 'false
height = 345
left = 1890
tabindex = 11
top = 2400
width = 945
end
begin vb.commandbutton cmdsplit
caption = "分 割"
height = 345
left = 120
tabindex = 10
top = 2400
