如何选定相同字符？
在一个字符串中，单击时选中光标所处位置前后相同的字符。
如：asdddddddju 单击时若光标处有d字母，则选中所有d,即ddddddd。
问题点数：20、回复次数：5Top
1 楼ywgyh（初学者）回复于 2005-06-03 14:20:22 得分 0
没人顶？？/Top
2 楼yangjiaxin_1（自己加星星）回复于 2005-06-03 15:00:25 得分 0
如果你点击得位置在s and d 之间你选中是s 还是ddddddddd??
你的字符串在什么控件里？文本框？？
如果是下面属性
Text1.SelStart中是当前光标位置，如：12345.光标在三四之间属性值是3
然后逐个向前向后找字符，找满足要求的重新设置
Text1.SelStart
Text1.SelLength
属性就 ok
自己试试，不懂再来Top
3 楼Athickhead（穿着三角裤到处跑不叫裸奔）回复于 2005-06-03 15:03:37 得分 20
Private Sub Text1_Click()
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim intlen As Integer
Dim AA As String
k = Text1.SelStart
i = k
AA = Mid(Text1.Text, i, 1)
For j = i To 1 Step -1
If Mid(Text1.Text, j, 1) = AA Then
i = i - 1
Else
Exit For
End If
Next j
For j = k To Len(Text1.Text)
If Mid(Text1.Text, j, 1) <> AA Then
j = j - 1
Exit For
End If
Next j
Text1.SelStart = i
Text1.SelLength = j - i
End Sub
Top
4 楼Athickhead（穿着三角裤到处跑不叫裸奔）回复于 2005-06-03 15:05:34 得分 0
k = Text1.SelStart
'在此处加一句.
If k = 0 Then Exit Sub
i = k
Top
5 楼sakurako（看晨雾散开,你就是我一生的最爱...）回复于 2005-06-03 15:28:10 得分 0
sssddddddd
在s和d之间单击
为何不选中sss呢？Top
