actually Iam reading strings from the comm port (ie from an external device using serial port).So I can read a byte at a time and do calulation on them.
I u hav a long sting and u only want to read certain piece from it then...read help on string...
heres a few on wat u want...·
SelLength — returns or sets the number of characters selected.
· SelStart — returns or sets the starting point of text selected; indicates the position of the insertion point if no text is selected.
· SelText — returns or sets the string containing the currently selected text; consists of a zero-length string ("") if no characters are selected.
These properties aren't available at design time.
Syntax
object.SelLength [= number]
object.SelStart [= index]
object.SelText [= value]
eg...
Private Sub Form_Load ()
Text1.Text = "Two of the peak human experiences"
Text1.Text = Text1.Text & " are good food and classical music."
End Sub
Private Sub Form_Click ()
Dim Search, Where ' Declare variables.
' Get search string from user.
Search = InputBox("Enter text to be found:")
Where = InStr(Text1.Text, Search) ' Find string in text.
If Where Then ' If found,
Text1.SelStart = Where - 1 ' set selection start and
Text1.SelLength = Len(Search) ' set selection length.
Else
MsgBox "String not found." ' Notify user.
End If
End Sub
......
chaooooo..
![]()
![]()
![]()




Reply With Quote