mong các tiền bối chỉ giáo

[juem91]

tự học asp sao khó quá :((
em muốn tách 1 xâu ký tự
Private Sub tachxau(ByVal text As String, ByVal duongdan As String)
Dim xau As String
xau = Text
For bd = 1 To Len(xau) - 2
Select Case Mid(xau, bd, 3)
Case "(|)"
If bd <> 1 And bd <> Len(xau) - 2 Then
xau = Left(xau, bd - 1) & duongdan & Right(xau, Len(xau) - bd - 2)
Else
If bd = 1 Then
xau = duongdan & Right(xau, Len(xau) - bd - 2)
Else
If bd = Len(xau) - 2 Then
xau = Left(xau, bd - 1) & duongdan
End If
End If
End If
Case "[|]"
If bd <> 1 And bd <> Len(xau) - 2 Then
xau = Left(xau, bd - 1) & duongdan & Right(xau, Len(xau) - bd - 2)
Else
If bd = 1 Then
xau = duongdan & Right(xau, Len(xau) - bd - 2)
Else
If bd = Len(xau) - 2 Then
xau = Left(xau, bd - 1) & duongdan
End If
End If
End If
Case Else
xau = xau
End Select
Next bd
txt.text=xau
end sub
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
tachxau(TextBox1.Text,"đuongan")//neu đuongan=1->2ky tu thi chay ok,nhung nhieu hon thi no ko tach duoc het textbox1 la sao???
TextBox1.Text = ""
End Sub

[dauhalan88]

theo mình nghĩ thì bạn nên học php ấy cái đó bây giờ rất thịnh hành đó bạn à nó ứng dụng rất nhiều trong web mà nghề đó theo mình nghĩ bây giờ là rất thịnh hành đó