请高手帮忙开发一个小工具
大家帮忙开发一个小工具如题:
第1个和第2个一组
第2个和第3个一组
第3个和第4个一组
第4个和第5个一组
第5个和第6个一组
-
-
-
-
-
-
-
第21个和第22个一组
一共21组
例如:
将01 22 14 17 13 08 06 12 15 09 02 11 18 10 03 05 04 07 19 21 16 20转换成:
01 22
22 14
14 17
17 13
13 08
08 06
06 12
12 15
15 09
09 02
02 11
11 18
18 10
10 03
03 05
05 04
04 07
07 19
19 21
21 16
16 20
转换数据太多了 需要一个小工具 那位高手帮忙呀 最好能说的详细一点我是超级菜鸟 谢谢了 这样吧？
Private Sub Command1_Click()
'先去除空格，然后每次取4位，每2位中间插入空格
Dim strin, temp, strout As String
Dim i As Integer
strin = htrim(Text2.Text)
If strin <> "" Then
For i = 1 To 21
temp = Mid(strin, i * 2 - 1, 4)
strout = strout & Left(temp, 2) & " " & Right(temp, 2) & Chr(13) & Chr(10)
Next
Text1.Text = strout
End If
End Sub
Function htrim(ByVal str As String) As String '处理字符串
Dim lenth As Integer
lenth = Len(str)
Dim i As Integer
Dim char As Integer
Dim s As String
For i = 1 To lenth
char = Asc(Mid(str, i, 1))
If char <> 0 And char <> 32 And char <> 10 And char <> 13 Then
s = s & Mid(str, i, 1)
End If
Next i
htrim = s
End Function
谢谢 飘云总坛主 就是这样的 非常感谢 也是我5.1收到的非常好的礼物 做什么用的,.../:15
页:
[1]