请高手帮忙开发一个小工具

caizhi

大家帮忙开发一个小工具
如题:
第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  
转换数据太多了    需要一个小工具    那位高手帮忙呀   最好能说的详细一点  我是超级菜鸟   谢谢了

飘云

这样吧？

1. Private Sub Command1_Click()
   
2. '先去除空格，然后每次取4位，每2位中间插入空格
   
3. 
   
4. Dim strin, temp, strout As String
   
5. Dim i As Integer
   
6. strin = htrim(Text2.Text)
   
7. If strin <> "" Then
   
8. For i = 1 To 21
   
9.     temp = Mid(strin, i * 2 - 1, 4)
   
10.     strout = strout & Left(temp, 2) & " " & Right(temp, 2) & Chr(13) & Chr(10)
    
11. Next
    
12.     Text1.Text = strout
    
13. End If
    
14. End Sub
    
15. 
    
16. 
    
17. 
    
18. Function htrim(ByVal str As String) As String               '处理字符串
    
19.   Dim lenth     As Integer
    
20.   lenth = Len(str)
    
21.   Dim i     As Integer
    
22.   Dim char     As Integer
    
23.   Dim s     As String
    
24.   For i = 1 To lenth
    
25.       char = Asc(Mid(str, i, 1))
    
26.       If char <> 0 And char <> 32 And char <> 10 And char <> 13 Then
    
27.           s = s & Mid(str, i, 1)
    
28.       End If
    
29.   Next i
    
30.   htrim = s
    
31.   End Function
    
32. 
    

复制代码

caizhi

谢谢    飘云  总坛主       就是这样的     非常感谢     也是我5.1收到的非常好的礼物

fonge

做什么用的,.../:15