VB 如何使TXT文本内容每13个字符一段

Question

如题所述

Answer 1

设计阶段，请将文本设置为自动换行。

Private Sub Command1_Click()
Dim str1 As String, HuanhangLen As Integer
str1 = Text1
HuanhangLen = 13
Text1 = ""
Do While Len(str1) > HuanhangLen
Text1 = Text1 & Left(str1, HuanhangLen) & vbCrLf
str1 = Right(str1, Len(str1) - HuanhangLen)
Loop
Text1 = Text1 & str1
End Sub