用VB实现这样的合并

显示全部楼层 · 2009-1-29 22:35:35

text1中的文本为 G1，G2，G3，G4,G8
text2中的文本为 G5,G6,G7,G9,G10,G12
想通过VB实现合并，合并后文本变成这样
text1中的文本为 G1~G4,G8
text2中的文本为 G5~G7,G9~G10,G12
我想要通用的格式代码，不管多少个都写成这样
我的意思就是把文本里面的内容，合的简单一点，意思也就是G1，G2，G3，G4,G8可以简单写成 G1~G4,G8
，这个“~”的意思就是“到”的意思呀。直接去掉中间的G2与G3。。。
这样够明白吧
四楼的：你的答案不对，输出来的时候，会产生这样的结果G10~G10……
五楼的对，可是好像代码太长，可以简单不，你那 1 to 50 是做什么？
六楼的：好像也不太正确，当代码G15，G16……就会出现G5~G16的样子……

千问 · 2009-1-29 22:35:35

Private Sub Form_Load()Text1.Text = "G1,G2,G3,G4,G8,A1,A3,C4,E1,E2"'Text1.Text = "G5,G6,G7,G9,G10,G12 "End SubPrivate Sub Command1_Click()Me.ClsPrint cHange(Text1.Text) '调用change函数End SubPrivate Function sTi(ByVal qt As String) As StringFor i = 1 To 50If IsNumeric(Right(Trim(qt), i)) ThenDoEventsElse...

千问 · 2009-1-29 22:35:35

'=====更新========排除了出现G10~G10…… 的问题.Private Sub Command1_Click()Dim tText1.Text = Replace(Text1.Text, "，", ",")t = Split(Text1.Text, ",")Dim temp As String, bs As String...

千问 · 2009-1-29 22:35:35

下面代码先进行排序,后进行合并输出,比较全面。Private Function mJoin(zfc As String) As StringDim i As Integer, j As Integer, a() As StringDim tmp As String, s As String, s1 As String
s = zfc...

千问 · 2009-1-29 22:35:35

不明白什么意思这个~号的意思是：比如G1~G4 是说，G1到G4的字符加一起，还是说舍弃G2.3的值直接写出G1~G4的样子，比如1,2,3,4 写成：1~3,4还是说写成：123,4还是说写成：6,4呢？呼呼...