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 Zählen von Nummern in Textfile

Mitglied: Calim3ro

Calim3ro (Level 1) - Jetzt verbinden

06.01.2015, aktualisiert 12:20 Uhr, 725 Aufrufe, 3 Kommentare, 1 Danke

Hallo zusammen

Gerne möchte ich mir ein VB-Script basteln, jedoch fehlt mir dazu noch einiges an Wissen und im Forum & google habe ich nichts entsprechendes gefunden.

Zum Fall:

Ich habe ein Textfile (ca.50MB) mit 7-Stelligen Nummern, welche untereinander angeordnet sind. Die Nummern kommen in dem File mehrmals vor.

Beispiel:

1234567
9876543
1234567
1234567
....

Nun möchte ich wissen, wievielmal die jeweilige Nummer in dem File vorkommt und das Ergebniss in ein Textfile schreiben.

1234567 = 3x
9876543 = 1x
....

Kann mir jemand ein VB-Script schreiben oder mir Tipps geben, wie dies zu erreichen ist?

Bei Unklarheiten oder Fragen, einfach nachfragen.

Besten Dank im Voraus

Gruss Calimero
Mitglied: 114757
LÖSUNG 06.01.2015, aktualisiert um 12:20 Uhr
Moin Calimero,
nix leichter als das ....
01.
const TEXTIN = "c:\daten.txt" 
02.
const TEXTOUT = "c:\daten_count.txt" 
03.
 
04.
dim fso, dic, arrContent, line, objFile 
05.
 
06.
set fso = CreateObject("Scripting.FilesystemObject") 
07.
set dic = CreateObject("Scripting.Dictionary") 
08.
 
09.
arrContent = Split(fso.OpenTextfile(TEXTIN,1).ReadAll(),vbNewline) 
10.
 
11.
For each line in arrContent 
12.
    line = Trim(line) 
13.
    If line <> "" Then 
14.
       If not dic.Exists(line) then 
15.
           dic.add line,1 
16.
       Else 
17.
           dic.Item(line) = CDbl(dic.Item(line)) +1 
18.
       End if 
19.
    End if 
20.
Next 
21.
 
22.
set objFile = fso.OpenTextfile(TEXTOUT,2,True) 
23.
keys = dic.keys 
24.
For i = 0 to dic.count -1 
25.
    objFile.WriteLine keys(i) & " = " & dic.Item(keys(i)) 
26.
Next 
27.
objFile.Close 
28.
MsgBox "Feddich" 
29.
set fso = Nothing 
30.
set dic = Nothing
Gruß jodel32

-edit- habe noch einen kleinen Fehler in Zeile 22 korrigiert
Bitte warten ..
Mitglied: Calim3ro
06.01.2015, aktualisiert um 12:22 Uhr
Hallo jodel32

Yes, perfekt!

Musste nur noch in Zeile 22 set objFile... setzten, da ansonsten eine Fehlermeldung aufpopte.

Anstatt OpenTextFile habe ich CreateTextFile gewählt, aber das ist Detail.

Besten Dank für Deine schnelle Hilfe!

Gruss Calimero

Ah, Fehlerkorrektur zu spät gesehen.
Bitte warten ..
Mitglied: 114757
06.01.2015 um 15:24 Uhr
Anstatt OpenTextFile habe ich CreateTextFile gewählt.
Das ist in dem Fall Jacke wie Hose, denn mit dem Parameter 2 und True wird erstens eine nicht vorhandene Textdatei erstellt und durch den Parameter 2 bei vorhandensein der Datei überschrieben.
Bitte warten ..
Ähnliche Inhalte
VB for Applications

Bekommt GetDetailsOf nicht in ein Textfile

Frage von 94451VB for Applications4 Kommentare

Folgender aufbau: ich will per VBS-Script Bilder in eine (Indizierungs-) Datei laden das Funktioniert auch soweit doch sobald ich ...

Batch & Shell

Batch, Suche der Nummer in der Datei!

Frage von SportiiiBatch & Shell8 Kommentare

Hallo, mir wurde bereits durch jodel32 sehr geholfen es fehlt nur ein kleines Stück: Folgendes: Wenn ich eine Nummer ...

Microsoft Office

Automatisches umformatieren von Nummern im Excel

Frage von ExcelOpferMicrosoft Office14 Kommentare

Hallo Leute! Ich bin mal wieder am Ende mit meinen "Excel - Kenntnissen". Das Ziel ist es, alle Nummern ...

Batch & Shell

In Batch Zählen

gelöst Frage von mavericklpBatch & Shell2 Kommentare

Guten Morgen zusammen, Ich habe ein kleines Problem mit einer Zählschleifer in der Batch Datei. Und zwar werden die ...

Neue Wissensbeiträge
Sicherheit

Ungepatchte Remote Code Execution-Lücke in LG NAS

Information von kgborn vor 9 StundenSicherheit

Nutzt wer LG NAS-Einheiten? In den NAS-Einheiten der LG Network Storage-Einheiten gibt es eine sehr unschöne Schwachstelle, die einen ...

Windows Update

Neue Version KB4099950 NIC Einstellungen gehen verloren

Information von sabines vor 14 StundenWindows Update2 Kommentare

Es ist eine neue Version des KB4099950 verfügbar, die das Problem mit den verlorenen Netzwerkeinstellungen lösen soll. Das Datum ...

Microsoft Office

MS Office 2019 ohne OneNote - OneNote App speichert nur in Cloud

Information von Deepsys vor 1 TagMicrosoft Office4 Kommentare

Microsoft zeigt deutlich wohin alles bei Ihnen geht, OneNote 2019 wird es nicht mehr geben, und die Windows 10 ...

Humor (lol)

Warum man sein Gast-WLAN nicht beliebig nennen sollte

Erfahrungsbericht von Henere vor 2 TagenHumor (lol)5 Kommentare

Servus, mal was aus dem Alltag. Zu Hause. Eigentlich wollte ich nur einen weiteren WLAN-AP ins Netz bringen, damit ...

Heiß diskutierte Inhalte
Festplatten, SSD, Raid
Server SSD: NVMe PCIe 3.0 RAID?
Frage von bouneeFestplatten, SSD, Raid15 Kommentare

Hallo liebe Admins, mir stellt sich gerade die Frage, ob ein neuer Server mit SSD NVMe PCIe 3.0 Sinn ...

Sonstige Systeme
Wie Normenkataloge im Unternehmen bereit stellen?
Frage von MuzzepuckelSonstige Systeme14 Kommentare

Hallo Kollegen, ich lese schon lange hier mit, nun mein ersrer Beitrag, bzw. Frage. :-) Wir benötigen für unsere ...

Windows 10
Windows 10 Startmenü-Einstellungen Systemweit festlegen
Frage von flotautWindows 1013 Kommentare

Guten Morgen liebe Admins, wir möchten bei uns am Lehrstuhl demnächst auf Windows 10 umsteigen. Wir installieren unsere PC's ...

LAN, WAN, Wireless
OpenVPN Client Fehlermeldungen
Frage von chris84LAN, WAN, Wireless12 Kommentare

Hallo Zusammen, wir nutzen seit kurzem einen neuen Router und den OpenVPN Client. Die VPN Verbindung klappt; allerdings kommen ...