作者snowmanmax (Snow)
看板Visual_Basic
标题[.NET] 关於搜寻字串
时间Fri Aug 22 02:30:25 2008
请输入专案类型(网站专案或者应用程式专案)：应用程式专案
我写了一个关於搜寻字串的程式码
Private Sub search()
Dim data As String = "abacadaeaf"
Dim count As Integer = 1
Dim save(5) As String
For i As Integer = 0 To 4
count = InStr(count, data, "a", CompareMethod.Text)
save(i) = Mid(data, count, 2)
count += 1
Next i
For j As Integer = 0 To 4
TextBox1.Text += save(j) + ","
Next j
End Sub
预设跑出来应该要"ab,ac,ad,ae,af,"
不知道哪边有想错@@ 跑出来结果只出现 "af,"
请问这段程式码要如何改？？
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 140.135.43.61
※ 编辑: snowmanmax 来自: 140.135.43.61 (08/22 02:56)
1F：→ horngsh:为何不用InStr就好, 并且Count设0... 08/22 04:15
改InStr 我设0他说引数start要大於0
※ 编辑: snowmanmax 来自: 140.135.43.61 (08/22 12:57)
2F：→ MOONRAKER:设1不就结了 还有.net的字串函数不是都改了 别用旧的吧 08/22 14:07
3F：→ MOONRAKER:mid()是历史陈迹了 08/22 14:07
解决了 原来是TextBox的问题
※ 编辑: snowmanmax 来自: 140.135.43.61 (08/22 22:13)