Top-Themen

Aktuelle Themen (A bis Z)

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

Textdatei .txt mit .vbs auf doppelte Werte prüfen und ggf. zerlegen

Frage Entwicklung VB for Applications

Mitglied: alfabravo

alfabravo (Level 1) - Jetzt verbinden

04.09.2013 um 15:34 Uhr, 1799 Aufrufe, 6 Kommentare, 2 Danke

Hallo Admins,

ich möchte möglichst mit vbs eine Datei namens 'Quelle.txt' zerlegen:

Sobald eine Kundennummer (8stellig, hier an Stelle 18-25) ein weiteres mal in einer Zeile vorkommt, soll die betreffende Zeile in eine neue Datei geschrieben werden und aus der Quelle.txt gelöscht werden.

Beispiel:

Vorher:

Quelle.txt:

Dies ist Zeile 1 44001234 Dies ist Zeile 1
Dies ist Zeile 2 45209999 Dies ist Zeile 2
Dies ist Zeile 3 44001234 Dies ist Zeile 3


Nach der Verarbeitung:

Ziel1.txt:

Dies ist Zeile 1 44001234 Dies ist Zeile 1
Dies ist Zeile 2 45209999 Dies ist Zeile 2


Ziel2.txt:

Dies ist Zeile 3 44001234 Dies ist Zeile 3


Da auch Sonderzeichen vorkommen können (z.B.: &) sollte es über ein *.vbs Skript laufen (und nicht über Batch).

Hat jemand eine Lösung dafür?

Vielen Dank!
Mitglied: colinardo
04.09.2013, aktualisiert um 17:16 Uhr
Halo alfabravo,
das könntest du hiermit machen:
(In den Zeilen 1-3 noch die Pfade anpassen)
strQuellPfad ~ Quelle.txt
strZielClean ~ Ziel1.txt
strZielDupes ~ Ziel2.txt
01.
Const strQuellPfad = "E:\Scripte\quelle.txt" 
02.
Const strZielClean = "E:\Scripte\ziel1.txt" 
03.
Const strZielDupes = "E:\Scripte\ziel2.txt" 
04.
 
05.
Set fso = WScript.CreateObject("Scripting.Filesystemobject") 
06.
Set objQuelleRead = fso.OpenTextFile(strQuellPfad,1) 
07.
arrContent = Split(objQuelleRead.ReadAll(),vbNewLine) 
08.
objQuelleRead.Close 
09.
 
10.
Set regex = New RegExp 
11.
Set objDupes = fso.OpenTextFile(strZielDupes,2,True) 
12.
For i = 0 To UBound(arrContent) 
13.
	regex.Pattern = "\s\d{8}\s" 
14.
	Set matches = regex.Execute(arrContent(i)) 
15.
	If matches.Count > 0 Then 
16.
		strKDNR = matches(0) 
17.
		regex.Pattern = strKDNR 
18.
		For x = (i+1) To UBound(arrContent) 
19.
			If regex.Test(arrContent(x)) Then 
20.
				objDupes.WriteLine(arrContent(x)) 
21.
				arrContent(x) = "" 
22.
			End If 
23.
		Next 
24.
	End If 
25.
Next 
26.
objDupes.Close 
27.
 
28.
Set objZiel = fso.OpenTextFile(strZielClean,2,True) 
29.
For z = 0 To UBound(arrContent) 
30.
	If arrContent(z) <> "" Then 
31.
		objZiel.WriteLine(arrContent(z)) 
32.
	End If 
33.
Next 
34.
objZiel.Close 
35.
Set fso = Nothing 
36.
MsgBox "Fertig!"
Wenn du keine zusätzliche Datei (ziel1.txt) mit den bereinigten Zeilen möchtest sondern das ganze in die Quelle zurückschreiben möchtest ist das auch kein Problem. Einfach in die Variable strZielClean den selben Pfad eintragen wie bei strQuellPfad.

Grüße Uwe
Bitte warten ..
Mitglied: alfabravo
04.09.2013 um 17:43 Uhr
Hallo Uwe,

ich danke Dir vielmals, das klappt schon ganz hervorragend. Wenn ich das richtig sehe, sind die Leerzeichen vor und nach der Kundennummer von Bedeutung, um die Kundennummer zu 'extrahieren'. Ginge das Ganze auch, wenn vor und nach der Kundennummer keine Leerzeichen, sondern beliebige andere Zeichen stehen? Also wenn die Quelle z. B. so aussieht:

DiesistZeile1abcd44001234abcdDiesistZeile1
DiesistZeile2abc 44209999abcdDiesistZeile2
DiesistZeile3abcd44001234 bcdDiesistZeile3


Zwei Dinge sind jedenfalls in jeder Zeile immer gleich:
1.) die Kundennummer ist 8stellig
2.) und steht an Position 18 bis 25

Gruß, alfabravo
Bitte warten ..
Mitglied: colinardo
04.09.2013 um 18:39 Uhr
kein Problem. Ändere Zeile 13 so ab:
01.
regex.Pattern = "\d{8}" 
Bitte warten ..
Mitglied: Biber
04.09.2013, aktualisiert um 20:13 Uhr
Moin colinardo,

das kann klappen, muss aber nicht.

Wenn durch Zufall oder Zwang in diesem FixedLen-Flatfile
  • unmittelbar vor oder nach der Kundennummer Ziffern stehen
  • an anderer Stelle in der Zeile auch mal 8 oder mehr Ziffern stehen könnten

-> dann wird es wacklig.
Beispiel:
DiesistZeile1abcd44001234abcdDiesistZeile1 
DiesistZeile2abc 44209999abcdDiesistZeile2 
DiesistZeile3abcd44001234 bcdDiesistZeile3 
DiesistZeile5abc7550012341bcdDiesistZeile5 
DiesistZeile4abcx55001234 bcdDiesistZeile4
Mit dieser Test-Datei kommen je nach Reihenfolge der Zeile unterschiedliche Ergebnisse.
Wenn "Zeile4" vor "Zeile5" steht-> korrektes Ergebnis im Sinne der TO.
Wenn "Zeile5" vor "Zeile4" steht-> Duplikat im Sinne TO wird nicht erkannt.

Ich denke, du musst wohl oder übel mit Substring/festen Offsets arbeiten (=Mid(arrContent[i], 18, 8) ).

Grüße
Biber
Bitte warten ..
Mitglied: colinardo
04.09.2013, aktualisiert um 21:17 Uhr
@Biber
schon kloar, mach ich ungern aber wenn's denn sein muss 8-)

01.
Const strQuellPfad = "E:\Scripte\quelle.txt" 
02.
Const strZielClean = "E:\Scripte\ziel1.txt" 
03.
Const strZielDupes = "E:\Scripte\ziel2.txt" 
04.
 
05.
Set fso = WScript.CreateObject("Scripting.Filesystemobject") 
06.
Set objQuelleRead = fso.OpenTextFile(strQuellPfad,1) 
07.
arrContent = Split(objQuelleRead.ReadAll(),vbNewLine) 
08.
objQuelleRead.Close 
09.
 
10.
Set regex = New RegExp 
11.
Set objDupes = fso.OpenTextFile(strZielDupes,2,True) 
12.
For i = 0 To UBound(arrContent) 
13.
	regex.Pattern = "^\d{8}" 
14.
	Set matches = regex.Execute(Mid(arrContent(i),18)) 
15.
	If matches.Count > 0 Then 
16.
		strKDNR = matches(0) 
17.
		regex.Pattern = strKDNR 
18.
		For x = (i+1) To UBound(arrContent) 
19.
			If regex.Test(Mid(arrContent(x),18)) Then 
20.
				objDupes.WriteLine(arrContent(x)) 
21.
				arrContent(x) = "" 
22.
			End If 
23.
		Next 
24.
	End If 
25.
Next 
26.
objDupes.Close 
27.
 
28.
Set objZiel = fso.OpenTextFile(strZielClean,2,True) 
29.
For z = 0 To UBound(arrContent) 
30.
	If arrContent(z) <> "" Then 
31.
		objZiel.WriteLine(arrContent(z)) 
32.
	End If 
33.
Next 
34.
objZiel.Close 
35.
Set fso = Nothing 
36.
MsgBox "Fertig!"
Bitte warten ..
Mitglied: alfabravo
04.09.2013 um 20:20 Uhr
@colinardo (Uwe)
Klasse Skript. Funktioniert jetzt perfekt. Vielen Dank!

@Biber
Danke für Deine Anmerkung. Das war das i-Tüpfelchen.

Gruß, alfabravo
Bitte warten ..
Ähnliche Inhalte
Microsoft Office
Excel: Tabelle (Spalte) auf doppelten Wert prüfen
gelöst Frage von caschoplMicrosoft Office4 Kommentare

Ich muss in einem Excel prüfen, ob ein bestimmter Wert bereits schon vorkommt Folgendes Szenario: ich habe eine Excel ...

Batch & Shell
Wert aus Registry in Textdatei speichern - Batch oder VBS
gelöst Frage von ResolvBatch & Shell2 Kommentare

Hallo in die Runde, ich habe es leider nicht so mit Batch und Co. Ich würde gerne die letzen ...

Batch & Shell
Wert in einer TXT Datei suchen
Frage von nolle99Batch & Shell11 Kommentare

Hallo Leute Ich habe ein Problem Ich habe mir von meiner Seite alle URLs in einer TXT gespeichert (30.000 ...

VB for Applications
VBS-Entfernen von Zeilen in einer Textdatei
Frage von Calim3roVB for Applications5 Kommentare

Hallo zusammen Ich möchte aus einer Textdatei Zeilen entfernen. Ich habe drei Dateien, in Datei "A" stehen Wörter, in ...

Neue Wissensbeiträge
MikroTik RouterOS

Mikrotik - Lets Encrypt Zertifikate mit MetaROUTER Instanz auf dem Router erzeugen

Anleitung von colinardo vor 15 StundenMikroTik RouterOS6 Kommentare

Einleitung Folgende Anleitung ist aus der Lage heraus entstanden das ein Kunde auf seinem Mikrotik sein Hotspot Captive Portal ...

Sicherheit

Sicherheitslücke in HP-Druckern - Firmware-Updates stehen bereit

Information von BassFishFox vor 15 StundenSicherheit1 Kommentar

Ein weiterer Grund, dass Drucker keinerlei Verbindung nach "auswaerts" haben sollen. Unter Verwendung spezieller Malware können Angreifer aus der ...

Administrator.de Feedback

Entwicklertagebuch: Die Startseite wurde überarbeitet

Information von admtech vor 18 StundenAdministrator.de Feedback9 Kommentare

Hallo Administrator User, mit dem Release 5.7 haben wir unsere Startseite überarbeitet und die Beiträge und Fragen voneinander getrennt. ...

Vmware

VMware Desktopprodukte sind verwundbar

Information von Penny.Cilin vor 22 StundenVmware

Die VMware-Anwendungen zum Umgang mit virtuellen Maschinen Fusion, Horizon Client und Workstation sowie die Plattform NSX sind verwundbar. Davon ...

Heiß diskutierte Inhalte
Windows Netzwerk
Netzwerk Neustrukturierung
Frage von IT-DreamerWindows Netzwerk16 Kommentare

Hallo verehrte Community und Admins, bei uns im Haus steht eine Neustrukturierung an. Dafür benötige ich von euch ein ...

Windows Server
RDP macht Server schneller???
Frage von JaniDJWindows Server16 Kommentare

Hallo Community, wir betrieben seit geraumer Zeit diverse virtuelle Maschinen und Server mit Windows Server 2012. Leider haben wir ...

Festplatten, SSD, Raid
USB Stick recovery
Frage von petereFestplatten, SSD, Raid15 Kommentare

Hallo, ich habe einen defekten USB-Stick, der nicht mehr lesbar ist. Er wird in WIN als unbekanntes Volume mit ...

Windows 10
Windows 10 dunkler Bildschirm nach Umfallen
Frage von AkcentWindows 1015 Kommentare

Hallo, habe hier einen Windows 10 Rechner der von einem User umgefallen wurde (Beine übers Knie, an den PC ...