Hallo zusammen,
ich bekomme über die Zwischenablage Daten von einem anderen Programm.Das schaut dann z. B. so aus:
Kundennummer
131239
Adresse
Musterstrasse
124711 Musterhausen
Deutschland
Telefon+49 (123) 4711
Fax
E-Mailmustermann@mail.deWebsite
Die Frage ist jetzt, wie kann ich den Inhalt auslesen?
1 Problem:
Die eigentliche Info, die ich benötige befindet sich immer in der Zeile unter dem Suchbegriff. (Suchbegriff z.B. Fax)
2 Problem:
Es kann aber auch sein, dass nach dem Suchbegriff direkt der nächste Suchbegriff in der kommenden Zeile folgen kann.
MFG
ich bekomme über die Zwischenablage Daten von einem anderen Programm.Das schaut dann z. B. so aus:
Kundennummer
131239
Adresse
Musterstrasse
124711 Musterhausen
Deutschland
Telefon+49 (123) 4711
Fax
E-Mailmustermann@mail.deWebsite
Die Frage ist jetzt, wie kann ich den Inhalt auslesen?
1 Problem:
Die eigentliche Info, die ich benötige befindet sich immer in der Zeile unter dem Suchbegriff. (Suchbegriff z.B. Fax)
2 Problem:
Es kann aber auch sein, dass nach dem Suchbegriff direkt der nächste Suchbegriff in der kommenden Zeile folgen kann.
VB.NET-Quellcode
- Public Shared Sub getDaten()
- Dim TextString As String = My.Computer.Clipboard.GetText & "#Ende#" & vbCrLf
- Dim aLine As String = ""
- Dim strReader As New StringReader(TextString)
- While True
- aLine = strReader.ReadLine()
- Try
- Select Case aLine.ToString
- Case "Kundennummer"
- Case "Adresse"
- Case "Fax"
- End Select
- Catch ex As Exception
- My.Computer.Clipboard.Clear()
- End Try
- If aLine = "#Ende#" Then Exit While
- End While
- End Sub
- 'Wenn Case "Fax" dann lese die nächste Zeile, wenn dort nicht E-Mail steht
MFG