[PaPPy]

Here's what I am doing, I am converting a paragraph thats in a text box to a listbox thats one charcter wide. So the list box now shows the paragraph vertically one letter by letter. Well I ran into one problem. If there is a line break (someone hit enter) it shows up as the character "|". This causes my program to crash out. Below is the code I am using to conver from paragraph to single character list. If someone can show me a line to add to it or if I have to add a whole seperate statement to delete the line break.

Private Sub btnConvert_Click()
Dim str As String
Dim char As String
List1.Clear 'ListBox used for displaying splitten characters.
str = Text1.Text 'TextBox used for getting i/p string
For i = 1 To Len(str) Step 1
char = Mid(str, i, 1)
If char <> " " Then
List1.AddItem char
End If
Next i
End Sub

(Thanks gopinath_alr for the code)


-PaPPy

[gopinath_alr]

hi pappy,
when the user press enter button, Line feed and carriage return are added to the textbox string.
so we can check whether the character is equal to Line feed or carriage return. If it is, we simply exclude the characters not to be added to list box.
here is the code with modified syntax.

Private Sub Command1_Click()
Dim str As String
Dim char As String
List1.Clear 'ListBox used for displaying splitten characters.
str = Text1.Text 'TextBox used for getting i/p string
For i = 1 To Len(str) Step 1
char = Mid(str, i, 1)
If char <> " " And char <> vbLf And char <> vbCr Then 'Modified code
List1.AddItem char
End If
Next i
End Sub

have a nice time.
bye.

[kebo]

Originally Posted by gopinath_alr

hi pappy,
when the user press enter button, Line feed and carriage return are added to the textbox string.
so we can check whether the character is equal to Line feed or carriage return. If it is, we simply exclude the characters not to be added to list box.
here is the code with modified syntax.

Private Sub Command1_Click()
Dim str As String
Dim char As String
List1.Clear 'ListBox used for displaying splitten characters.
str = Text1.Text 'TextBox used for getting i/p string
For i = 1 To Len(str) Step 1
char = Mid(str, i, 1)
If char <> " " And char <> vbLf And char <> vbCr Then 'Modified code
List1.AddItem char
End If
Next i
End Sub

have a nice time.
bye.

After you define str you could use the REPLACE function to change the vbCRFL's into a space
i.e.
replace(str,vbCRLF," ")
kevin

[PaPPy]

thanks for the help


next topic is here i need help on
http://www.programmingtalk.com/showthread.php?t=9087