Regels uit bestand halen en inlezen.

[Stress]

Hallo iedereen,

Ik heb hier een document en ik zou die willen uitlezen in textboxen.

Zo is het document opgesteld:

TEKST ..................
---------------------------------------

NOG TEKST
_______________________

Hoe kan ik nu TEKST en NOG TEKST krijgen in een textbox in vb.net?

 

[SuperABC]

Nog iets meer informatie graag, is een andere opbouw van het bestand ook goed, zoals:

Tekst1[COLOR="blue"]<!>[/COLOR]Tekts2[COLOR="Blue"]<!>[/COLOR]Tekst3

 

[Stress]

Het bericht lijkt als volgt:

Lol .... Moet je zien ...

AHAH..

Njah, een klein gesprekje nam ik. Maar, de bedoeling is om die 1e regels LOL ... Dat dit in een textbox komt en AHAH.. in een andere. Dus altijd wanneer der een ENTER is gedaan moet het volgende lijntje in een textbox. Hoe te doen?

Groeten,
Stress

 

[SuperABC]

Ik geloof dat ik het niet helemaal snap hoor... Misschien een iets duidelijker voorbeeld?

 

[Stress]

Oké.. Ik probeer het nog eens uit te leggen.

Dus ik heb een BESTAND genaamd: hallo.txt, hierin bevatten zich enkele regels altijd gescheiden door een ENTER.

Dus: Als ik het bestand laad wil ik dat de 1e regel komt in: Textbox1.TEXT
En regel 3 (regel 2 niet dat is een ENTER) dus in: Textbox2.TEXT.

Kan dit?

Mvg,
Stress!

 

[SuperABC]

Ja, dat is inderdaad mogelijk zal zo even een voorbeeld in elkaar zetten:thumb:

 

[SuperABC]

Dit werkt, enters in de file worden genegeerd.

    Private TextFile As String
    Public Txt_Boxes As New List(Of TextBox)

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TextFile = My.Computer.FileSystem.ReadAllText("G:\Overige\test.txt")

        Dim TextLines() As String = TextFile.Split(Environment.NewLine.ToCharArray, StringSplitOptions.None)

        For X As Integer = 0 To TextLines.Length - 1

            If TextLines(X).ToString <> "" Then
                Dim New_TxtBox As New TextBox
                New_TxtBox.Width = 250
                New_TxtBox.Text = TextLines(X).ToString

                Txt_Boxes.Add(New_TxtBox)
                Panel1.Controls.Add(New_TxtBox)

                If Txt_Boxes.Count > 1 Then
                    New_TxtBox.Location = New Point(6, (Txt_Boxes.Count * 26) - 20)
                Else
                    New_TxtBox.Location = New Point(6, 6)
                End If

                New_TxtBox.Show()
            End If

        Next

        TextFile = String.Empty
    End Sub

Textboxes worden automatisch aangemaakt, zorg dat panel1 de Property: AutoScroll = True heeft:thumb:

 

[SuperABC]

Mocht je een ander font gebruiken dan de standaard, pas dan deze regel aan:

New_TxtBox.Location = New Point(6, (Txt_Boxes.Count * 26) - 20)

26 > Height van een TextBox als je er gewoon eentje op je form plaatst
20 > De Height - De Location.Y van de eerste textbox...:thumb:

 

[Stress]

Oké bedankt

 

[huijb]

@cdekleine Graag een eigen vraag maken. Het is niet toegestaan in iemand anders zijn vraag jouw probleem te plaatsen. Dit is onoverzichtelijk voor de helpers maar vooral voor de topicstarter.Bovendien stamt de vraag uit 2010, en dat is ook niet gewenst op Helpmij om oude topic te kicken