| |
VB.NET - Ein- und UmsteigerDaten 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 ... | |
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 | |
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 ? | |
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 | |
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 | |
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 ? | |
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 | |
| 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 |
|
|
Neu! sevCommand 4.0
Professionelle Schaltflächen im modernen Design!
Mit nur wenigen Mausklicks statten auch Sie Ihre Anwendungen ab sofort mit grafischen Schaltflächen im modernen Look & Feel aus (WinXP, Office, Vista oder auch Windows 8), inkl. große Symbolbibliothek. Weitere InfosTipp des Monats Access-Tools Vol.1
Über 400 MByte Inhalt
Mehr als 250 Access-Beispiele, 25 Add-Ins und ActiveX-Komponenten, 16 VB-Projekt inkl. Source, mehr als 320 Tipps & Tricks für Access und VB
Nur 24,95 EURWeitere Infos
|
|
|
Copyright ©2000-2024 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
|
|