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

Textpasagen aus einer .txt-Datei finden und rausfinden

Frage Entwicklung IDE & Editoren

Mitglied: Magic09

Magic09 (Level 1) - Jetzt verbinden

02.09.2009, aktualisiert 11:37 Uhr, 3184 Aufrufe, 4 Kommentare

Hallo Leute,

ich habe folgendes Problem:

Ich habe eine riesen .txt-Datei. Hier gibt es immer Absätze, die sich wiederholen. Beispiel:

<a> ....bla bla bla </a>
<a> ....123 </a>
<a> ....????? </a>
<a> ....blupp</a>

Ich brauche nun ein Programm/Funktion, die das ganze Dokument nach folgenden Textpasagen absucht <a> [Test/Zeichen] </a> und mir dann diese jeweils rausgibt.

Ich bedanke mich schonmal im Voraus für eure Hilfe.

Magic09
Mitglied: 81825
02.09.2009 um 11:48 Uhr
Hi,

Einstieg gleich mit Doppelpostings. Die Regeln sind wohl uninteressant?
Bitte warten ..
Mitglied: Magic09
02.09.2009 um 11:55 Uhr
Entschuldigt. Ich dachte beim ersten Mal hätte das Posting nicht geklappt. Brauche wirklich dringend Hilfe.

Wäre schön, wenn ihr trotzdem helfen könntest!

Danke
Bitte warten ..
Mitglied: drkznE
02.09.2009 um 12:38 Uhr
Ich verstehe dein Problem nicht wirklich.. aber hilft dir strg+f denn nicht weiter? : E
Bitte warten ..
Mitglied: bastla
02.09.2009 um 15:18 Uhr
Hallo Magic09 und willkommen im Forum!

Ich nehme an, Du möchtest alle enthaltenen "Links" aus der "Riesen.txt" extrahieren - falls ja, kannst Du es mit diesem VBScript versuchen:
01.
FilePath = "D:\Riesen.txt" 
02.
Suffix = "-Links.txt" 
03.
LookFor = "<a>.*</a>" 
04.
 
05.
Set fso = CreateObject("Scripting.FileSystemObject") 
06.
If Not fso.FileExists(FilePath) Then WScript.Quit 
07.
 
08.
T = fso.OpenTextFile(FilePath).ReadAll 
09.
 
10.
Set rE = New RegExp 
11.
rE.Global = True 
12.
rE.IgnoreCase = True 
13.
rE.Pattern = LookFor 
14.
 
15.
ResultPath = fso.GetParentFolderName(FilePath) 
16.
If Right(ResultPath, 1) <> "\" Then ResultPath = ResultPath & "\" 
17.
Set ResultFile = fso.CreateTextFile(ResultPath & fso.GetBaseName(FilePath) & Suffix, True) 
18.
 
19.
Set Matches = rE.Execute(T) 
20.
For Each Match In Matches 
21.
    ResultFile.WriteLine Match 
22.
Next
Damit wird eine Datei mit dem Zusatz "-Links.txt" mit allen Fundstellen erzeugt.

[Edit] Soferne mehrere Fundstellen in einer Zeile enthalten sind, könnte folgender Ersatz für die Zeile 3 dafür sorgen, dass alle einzeln erfasst werden:
LookFor = "<a>[^<]*</a>"
[/Edit]

Grüße
bastla
Bitte warten ..
Neuester Wissensbeitrag
Microsoft Office

MS Office Excel - Formel wird angezeigt, aber nicht berechneter Wert!

Tipp von holli.zimmi zum Thema Microsoft Office ...

Heiß diskutierte Inhalte
Hyper-V
gelöst Reiner Hyper- V Server oder lieber Rolle (15)

Frage von Winuser zum Thema Hyper-V ...

Windows Server
gelöst Rechte als Admin vergeben - Zugriff verweigert (14)

Frage von Ghost108 zum Thema Windows Server ...

Router & Routing
gelöst IP Kamera für drei unabhängige Netzwerke (12)

Frage von ProfessorZ zum Thema Router & Routing ...