Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

Wort finden und übernächste Zeile anzeigen

Frage Entwicklung Visual Studio

Mitglied: 0belixx

0belixx (Level 1) - Jetzt verbinden

29.04.2014 um 13:33 Uhr, 1121 Aufrufe, 2 Kommentare

Hallo Leute,

ich brauche mal etwas Hilfe. Folgendes Problem. Ich habe einen Text
.
.
.
blabla
bla

blabl

Referenznummer 1:

4711

Referenznummer 2:

0815

.
.
usw


Die Zeile(n) mit dem Wort "Referenznummer" gibt es immer Die Nummer die 2 Zeilen weiter folgt ist variable.
Wie kann ich die Nummer auslesen??

Ich hatte folgendes im Kopf
01.
Dim zusammenstellung As New List(Of String) 
02.
        For Each zeile As String In System.IO.File.ReadLines("text.txt") 
03.
            If zeile.Contains("Referenznummer") Then 
04.
                zusammenstellung.Add(???? übernächste Zeile ????) 
05.
            End If 
06.
        Next 
07.
        MessageBox.Show(String.Join(vbNewLine, zusammenstellung.ToArray))
Aber irgendwie bekomme ich es nicht hin
Für einen Denkanstoß wäre ich dankbar.

0belixx
Mitglied: 0belixx
29.04.2014 um 14:26 Uhr
Ist erledigt

01.
 Dim zusammenstellung As New List(Of String) 
02.
        Dim zeilen() = System.IO.File.ReadAllLines("text.txt") 
03.
        For i = 0 To zeilen.Length - 2 
04.
            Dim zeile = zeilen(i) 
05.
            If zeile.Contains("Referenznummer") Then 
06.
                zusammenstellung.Add(zeilen(i + 2)) 
07.
            End If 
08.
        Next
Bitte warten ..
Mitglied: bastla
29.04.2014 um 14:28 Uhr
Hallo Obelixx!

Wenn Du den gesamten Text einliest, per Split (an den Zeilenschaltungen) in ein Zeilen-Array aufteilst und dieses dann in einer For-Next-Schleife durchgehst, kannst Du leicht die übernächste Zeile finden ...

Grüße
bastla
Bitte warten ..
Ähnliche Inhalte
Batch & Shell
gelöst Bat soll in einer .dll eine Zeile suchen und Diese + 2 darunterliegende anzeigen (10)

Frage von Gangster137910 zum Thema Batch & Shell ...

Batch & Shell
Batsch doppelte Zeile in in Text finden und eine löschen (10)

Frage von GNLen1 zum Thema Batch & Shell ...

Webbrowser
Doc oder Docx in Webbrowser lesend anzeigen (2)

Frage von ChrisDynamite zum Thema Webbrowser ...

Neue Wissensbeiträge
RedHat, CentOS, Fedora

Fedora, RedHat, Centos: DNS-Search Domain setzen

(12)

Tipp von Frank zum Thema RedHat, CentOS, Fedora ...

Drucker und Scanner

Samsung SL-M4025ND, firmware update und (kompatible) Tonerkassetten

(1)

Erfahrungsbericht von markus-1969 zum Thema Drucker und Scanner ...

Heiß diskutierte Inhalte
Windows 10
Windows für Privatanwender "nicht mehr handhabbar" (26)

Frage von FA-jka zum Thema Windows 10 ...

LAN, WAN, Wireless
Brauche Hilfe: Mit (schnellem) WLAN Strecke überbrücken (23)

Frage von pierrehansen zum Thema LAN, WAN, Wireless ...

LAN, WAN, Wireless
Komplett neues Netzwerk, Ubiquiti WLAN, Router, Switch (15)

Frage von Freak-On-Silicon zum Thema LAN, WAN, Wireless ...