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

Zählen von Nummern in Textfile

Frage Entwicklung VB for Applications

Mitglied: Calim3ro

Calim3ro (Level 1) - Jetzt verbinden

06.01.2015, aktualisiert 12:20 Uhr, 696 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
Batch & Shell
gelöst (Batch) Nummern vergleichen (3)

Frage von clragon zum Thema Batch & Shell ...

Batch & Shell
gelöst PowerShell: Umbenennung erster 2 Zahlen (1)

Frage von janelsaesser zum Thema Batch & Shell ...

Linux
gelöst Umlaute zählen - Bash-Script (5)

Frage von plutowitsch zum Thema Linux ...

JavaScript
Javascript rechnen mir sehr sehr großen Zahlen (3)

Frage von it4baer zum Thema JavaScript ...

Neue Wissensbeiträge
Windows Server

Umstellung SHA 1 auf SHA 2 - Migration der CA von CSP auf KSP

Tipp von Badger zum Thema Windows Server ...

Windows 10

Quato DTP94 unter Windows 10 x64 installieren und verwenden

Anleitung von anteNope zum Thema Windows 10 ...

Windows 10

Win10 1703 und Nutzerkennwörter bei Ersteinrichtung - erstaunliche Erkenntnis

(15)

Erfahrungsbericht von DerWoWusste zum Thema Windows 10 ...

Heiß diskutierte Inhalte
Windows 10
Windows 10 im Unternehmen? (28)

Frage von zorlayan zum Thema Windows 10 ...

LAN, WAN, Wireless
CNC Maschinen verlieren Netzwerkverbindung (kurioser Fehler) (21)

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