#5
Private Sub Command2_Click()
Dim yazi, ilk, son, kriter1, kriter2 As String
kriter1 = Chr(34) & "\u003E@"
kriter2 = "\u003C"
ilk = InStr(1, Me.Text0, kriter1)
son = InStr(ilk + 1, Me.Text0, kriter2)
yazi = ""
For T = ilk + 8 To son - 1
yazi = yazi & Mid(Me.Text0, T, 1)
Next
MsgBox yazi
End Sub| Bu Konudaki Yorumlar |
|
metinde belli kelimler arasındakileri bulmak - Yazar: accessman - 03/04/2013, 16:56
Cvp: metinde belli kelimler arasındakileri bulmak - Yazar: Yandemir - 03/04/2013, 23:07
Cvp: metinde belli kelimler arasındakileri bulmak - Yazar: accessman - 04/04/2013, 09:06
Cvp: metinde belli kelimler arasındakileri bulmak - Yazar: accessman - 04/04/2013, 09:54
Cvp: metinde belli kelimler arasındakileri bulmak - Yazar: accessman - 04/04/2013, 10:06
Cvp: metinde belli kelimler arasındakileri bulmak - Yazar: accessman - 04/04/2013, 12:32
Cvp: metinde belli kelimler arasındakileri bulmak - Yazar: mehmetdemiral - 04/04/2013, 17:21
Cvp: metinde belli kelimler arasındakileri bulmak - Yazar: Yandemir - 04/04/2013, 19:47
Cvp: metinde belli kelimler arasındakileri bulmak - Yazar: hgsoftware - 05/04/2013, 18:46
Cvp: metinde belli kelimler arasındakileri bulmak - Yazar: Yandemir - 05/04/2013, 20:27
Cvp: metinde belli kelimler arasındakileri bulmak - Yazar: hgsoftware - 08/04/2013, 11:16
|
