读取txt文本换行的问题！
一个txt文本文档一行比较长，我想以每行10个字符读取到textbox中。也就是每10个字符换一行，原本有的换行仍然保留。
如下
txt文本中内容
一个txt文本文档一行比较长，我想以每行10个字符读取到textbox中。
也就是每10个字符换一行，原本有的换行仍然保留。
我想达到这样的效果（一个中文算2个字符吧，如果字符数是奇数的话，就加一个字符）
一个txt文本
文档一行比
较长，我想
以每行10个
字符读取到
textbox中
。
也就是每10
个字符换一
行，原本有
的换行仍然
保留。
[解决办法]
Dim i As Integer, strTmp As String
Text1 = ""
For i = 1 To Len(myStr)
strTmp = strTmp & Mid(myStr, i, 1)
If LenB(StrConv(strTmp, vbFromUnicode)) > 9 Then
Text1 = Text1 & strTmp & vbNewLine
strTmp = ""
End If
Next i
If strTmp > "" Then Text1 = Text1 & strTmp
Private Sub Command3_Click()
Dim a As String
Dim b As String
Dim s As String
Dim n As Long
Dim m As Long
Dim i As Long
Dim j As Long
For i = LBound(MyStr) To UBound(MyStr)
a = MyStr(i)
n = 0
For j = 1 To Len(a)
b = Mid(a, j, 1)
If Asc(b) < 0 Then
m = 2
Else
m = 1
End If
If n + m > 10 Then
s = s & vbCrLf
n = 0
End If
s = s & b
n = n + m
Next
s = s & vbCrLf
Next
Text1.Text = s
End Sub
