VB 如何使TXT文本内容每13个字符一段
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
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
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
