Dividing Text Lines

Posted on 2004-08-08
Medium Priority
Last Modified: 2010-04-17
I'm working with VB6, and trying to divide whatever text is in the textbox into sections.
for example lets say the text box contains ascii art:

---------------------   <- line1
                }}}         <- line2
}}}   }}}                 <- line3
}}}   }}}    }}}         <- line4
}}}}}}}}    }}}         <- line5
}}}  }}}}   }}}          <- line6
                              <- line7
--------------------     <- line8

I need to do something like this:

SendtoChat Line1
SendtoChat Line2
SendtoChat Line3

Thank You

Question by:andyakira
  • 2

Expert Comment

ID: 11750876
hi andyakira,
its easy to do its... just have the code below:

Dim fname As String, str As String,fno as Integer
fname = "c:\windows\desktop\new.txt"
fno = FreeFile()
Open fname For Input As #fno
While Not EOF(1)
     Line Input #fno, str
     SendToChat str
 You need to change the code according to your requirement.. I mean, in particular, the path should be replaced by your file path.... Well hope it will solve your matter...
LVL 18

Accepted Solution

JR2003 earned 120 total points
ID: 11751041
1 Convert the text in the multiline text box into a variant array.
2 Iterate through the array sending the individula lines to chat:

Private Sub Command1_Click()

    Dim MyLines As Variant
    Dim i As Long
    MyLines = Split(Text1.Text, vbNewLine)
    For i = LBound(MyLines) To UBound(MyLines)
        'SendtoChat MyLines(i)
        Debug.Print MyLines(i)
    Next i

End Sub

Author Comment

ID: 11759185
Thank you both for helping, greatly appreciated. keep up the good work guys!

 JR2003, the code works perfectly, i just put it in and it worked with hardly any adjustments done. TY

Expert Comment

ID: 11760205
ohh.. i was just in hurry and merged up both the questions and felt that this question is for extracting from file.... the code i posted was for that... sorry for that... bye

Featured Post

Free Tool: SSL Checker

Scans your site and returns information about your SSL implementation and certificate. Helpful for debugging and validating your SSL configuration.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

This article will inform Clients about common and important expectations from the freelancers (Experts) who are looking at your Gig.
What do responsible coders do? They don't take detrimental shortcuts. They do take reasonable security precautions, create important automation, implement sufficient logging, fix things they break, and care about users.
With the power of JIRA, there's an unlimited number of ways you can customize it, use it and benefit from it. With that in mind, there's bound to be things that I wasn't able to cover in this course. With this summary we'll look at some places to go…

622 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question