vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Zippen wie die Profis!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   RSS-Feeds  | Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2021
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

VB.NET - Ein- und Umsteiger
Daten in textbox einlesen 
Autor: Marty**
Datum: 20.06.20 21:16

Hallo Forum,

ich habe folgendes Problem.
Meine Textdatei hat folgenden Aufbau:
Breites:1000
Höhes:500
Tiefes:200
Meine Textboxen haben den gleichen Namen:
Wie kann ich den Wert der txtDatei in die gleichnamige Textbox einlesen?

Schönen Abend noch ...
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: Daten in textbox einlesen 
Autor: effeff
Datum: 21.06.20 10:51

Z. B. so:

    Private Sub TextboxFuellen(ByVal Textboxname As String, ByVal Wert As _
      String)
 
        Dim tb As TextBox = Me.Controls(Textboxname)
        tb.Text = Wert
 
    End Sub
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles _
      Button1.Click
 
        Dim Textdatei As String = "D:\test\import.txt"
        Dim Zeileninhalt() As String = Nothing
        Dim sr As New System.IO.StreamReader(Textdatei)
        Dim Inhalt As String = sr.ReadToEnd.Replace(vbLf, "")
        Dim Zeilen() As String = Inhalt.Split(vbCr)
        Dim i As Integer = 0
 
        For i = 0 To Zeilen.Count - 1
            Zeileninhalt = Zeilen(i).Split(":")
            If Zeileninhalt.Length > 1 Then
                TextboxFuellen(Zeileninhalt(0), Zeileninhalt(1))
            End If
        Next
 
        sr.Close()
 
    End Sub

EALA FREYA FRESENA

Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: Daten in textbox einlesen 
Autor: Marty**
Datum: 21.06.20 21:13

Hi
Private Sub TextboxFuellen(ByVal Textboxname As String, ByVal Wert As _
      String)
 
        Dim tb As TextBox = Me.Controls(Textbox1)
        tb.Text = Wert
 
    End Sub
Funktioniert bei mir nicht, oder wie ist das gemeint ?
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: Daten in textbox einlesen 
Autor: Manfred X
Datum: 22.06.20 16:12

      'irgendwo definiert
      Dim txtHöhe, txtBreite, txtTiefe As New TextBox
 
 
        Dim txt As TextBox = Nothing
        Dim lines() As String = IO.File.ReadAllLines("Pfad zur Detei")
 
        For i As Integer = 0 To lines.Length - 1
            Dim parts() As String = lines(i).Split(":"c)
            If parts.Length = 2 Then
                Select Case parts(0)
                    Case "Höhes" : txt = txtHöhe
                    Case "Tiefes" : txt = txtTiefe
                    Case "Breites" : txt = txtBreite
                End Select
                txt.Text = parts(1)
            End If
        Next i
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Controls Find 
Autor: Manfred X
Datum: 22.06.20 17:52

Die Suche nach einem Control anhand des Namens läuft über die Find-Methode
der Controls-Auflistung der Form.
        'Irgendwo definiert
        Dim txBreite As New TextBox With {.Parent = Me, .Name = "Breites"}
        Dim txHöhe As New TextBox With {.Parent = Me, .Name = "Höhes"}
        Dim txTiefe As New TextBox With {.Parent = Me, .Name = "Tiefes"}
 
 
        Dim alllines() As String = IO.File.ReadAllLines("Dateipfad")
 
        For i As Integer = 0 To alllines.Length - 1
            Dim parts() As String = alllines(i).Split(":"c)
            If parts.Length = 2 Then
                Dim ctl() As Control = Me.Controls.Find(parts(0), True)
                If ctl.Length = 1 AndAlso TypeOf ctl(0) Is TextBox Then
                    ctl(0).Text = parts(1)
                End If
            End If
        Next i
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: Daten in textbox einlesen 
Autor: Marty**
Datum: 27.12.20 20:51

Hallo Forum,

ein kleines Problem hat sich für mich noch ergeben.
Ich habe das ganze noch im eine Textbox Info erweitert.
 Dim txInfo As New TextBox With {.Parent = Me, .Name = "Infoes"}
Die InfoTextbox ist Multiline.
Der Text hinter Info: wird eingelesen.

Würde aber gerne die Zeilen unter Info: gerne mit in die Txtbox einlesen.

Info: Das
ist
ein
Test

Ist das auch möglich ?
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: Daten in textbox einlesen 
Autor: Marty**
Datum: 28.12.20 21:29

... wenn der Tag zu lang wird ....

Else
    Info.Text = Info.Text & vbCrLf & parts(0)
End If


Schönen Abend noch
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2021 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel