求助，怎么用VB帮我转换数据。 - vb吧

level 1

兴趣科技17 楼主

比如，我有一个文本，ABCDEFGHIJKMI
怎么让VB帮我改为：
ABCDE
FGHJK
MI
就是每5个字加一个回车键。

2022年08月15日 06点08分 1

level 6

山有扶苏🐵

Private Sub Form_Load()
Form1.AutoRedraw = True
Print "ABCDE" & vbCrLf & _
"FGHJK" & vbCrLf & _
"MI"
End Sub

2022年08月15日 06点08分 2

烟雨江南ooo

你这是要玩死新手啊

2022年08月15日 09点08分

放飞希望，追逐梦想

高手，我咋就没想到这样写呢 [大拇指]

2022年08月16日 15点08分

马云爱逛京东

我的天啊

2022年08月17日 08点08分

level 15

初音✨七奈

Dim s As String, s1 As String, i As Integer
s = "ABCDEFGHIJKMI"
For i = 5 To Len(s) Step 5
s1 = s1 & Left(s, 5) & vbCrLf
s = Mid(s, 6)
Next i
s1 = s1 & s
Print s1

2022年08月15日 09点08分 3

山有扶苏🐵

大佬好，应该用InputBox

2022年08月16日 00点08分

初音✨七奈

@山有扶苏🐵 如果楼主会用这个，那么他会自己改代码的，不用教；如果楼主不会用，继续追问，到时再教不迟

2022年08月16日 00点08分

兴趣科技17

@初音✨七奈哈哈，就是不会用，数据源位数不固定，就想使用简便方法替代人工去重复的加回车。

2022年08月17日 00点08分

初音✨七奈

@兴趣科技17 从程序界面的实用性角度考虑，可以用一个文本框完成你需要的功能，比如文本框名称为Text1，那么这段代码开始令s=Text1.Text，最后再令Text1.Text=s1即可

2022年08月17日 03点08分

level 9

飞扬65478

if i mod 5=0 then
print arr(i) & vbcrft
else
print arr(i)
endif

2022年08月18日 15点08分 5

初音✨七奈

首先字符串不是数组，需要额外的转换措施；其次Print自带换行功能，你这成了每个字符占一行，每5行后面额外空一行了（当然你还得把vbCrLf拼写正确才能出现这个额外空行）

2022年08月18日 15点08分

山有扶苏🐵

@初音✨七奈

2022年08月19日 07点08分

兴趣科技17

@山有扶苏🐵 谢谢大佬

2022年08月19日 11点08分