Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

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
Kommentar vom Moderator Biber am 07.12.2009 um 17:15:02 Uhr
Ich benötige dringend Hilfe, da ich dies schnell umsetzen muss.
So eine halbgare Begründung habe ich seit dem letzten FDP-Parteiprogramm nicht mehr gelesen.
Ist heut Montag? Ich geh jetzt zur Tanke und hol mir erstmal 'nen Korn.
GELÖST

VBScript - Zeilen mit Daten aus zweiter ergänzen

Frage Entwicklung VB for Applications

Mitglied: mctini

mctini (Level 1) - Jetzt verbinden

07.12.2009, aktualisiert 08.12.2009, 3713 Aufrufe, 2 Kommentare

Ich benötige dringend Hilfe, da ich dies schnell umsetzen muss.

Also ich habe zwei Dateien:

Mitarbeiter.txt mit folgendem Inhalt:

"||909|Bernhard|2009-12-07|17:40|||D1|
"||7078|Müller|2009-12-07|17:40|||D7|
"||6562|Meier|2009-12-07|17:50|||E22|
"||2119|Sulze|2009-12-07|17:50|||D26|
"||8735|Susanne|2009-12-07|18:00|||D6|

In den Zeilen am Ende steht nun eine Nummer mit Besoldungkürzel, z.B. D1,D7,E22, etc.
Diese Zeilen möchte ich mit der entsprechenden Summe aus der zweiten Datei ergänzen.
Die Mitarbeiter.txt ändert sich permanent während die Besold.txt immer gleich bleibt


dazu gibt es eine besold .Datei
Die kann ich entsprechend anpassen
In diesem Fall sieht die so aus:

Inhalt besold.txt
|D1|2000
|E22|2222
|E2ab|10000
|D6|6666


VB Script
zur Zeit lese ich die Zeilen der mitarbeiter wie folgt aus
01.
Anzahl=10 
02.
DateiEin="c:\mitarbeiter.txt" 
03.
DateiAus="C:\mitarbeiterbesoldung.txt" 
04.
T = Split(fso.OpenTextFile(DateiEin).ReadAll, vbCrLF) 
05.
Set Ausgabe = fso.CreateTextFile(DateiAus, True)  
06.
	For Each Z In T  
07.
   	                      If Geschrieben < Anzahl Then 
08.
                                                   neu = RTrim(Z)   ' Leeerzeichen löschen 
09.
                                            Ausgabe.WriteLine neu   
Hier sollte dann Die gesamte Zeile stehen:
"||909|Bernhard|2009-12-07|17:40|||D1|2000
"||7078|Müller|2009-12-07|17:40|||D7|----
"||6562|Meier|2009-12-07|17:50|||E22|2222
"||2119|Sulze|2009-12-07|17:50|||D26|----
"||8735|Susanne|2009-12-07|18:00|||D6|6666

Könnt ihr mir helfen ?????
Mitglied: bastla
07.12.2009 um 22:23 Uhr
Hallo mctini!

Sollte sich etwa so lösen lassen:
01.
Anzahl=10 
02.
DateiEin="c:\mitarbeiter.txt" 
03.
DateiAus="c:\mitarbeiterbesoldung.txt" 
04.
DateiBes="c:\besold.txt" 
05.
 
06.
set fso = CreateObject("Scripting.FileSystemObject") 
07.
T = Split(fso.OpenTextFile(DateiBes).ReadAll, vbCrLf) 
08.
Set d = CreateObject("Scripting.Dictionary") 
09.
For Each Z In T 
10.
    F = Split(Z, "|") 
11.
    d.Add F(1), F(2) 
12.
Next 
13.
 
14.
T = Split(fso.OpenTextFile(DateiEin).ReadAll, vbCrLf) 
15.
Set Ausgabe = fso.CreateTextFile(DateiAus, True) 
16.
For Each Z In T 
17.
    If Geschrieben < Anzahl Then 
18.
        neu = RTrim(Z) ' Leeerzeichen löschen 
19.
        F = Split(neu, "|") 
20.
        S = "----" 
21.
        If d.Exists(F(8)) Then S = d.Item(F(8))       
22.
        Ausgabe.WriteLine neu & S 
23.
    End If 
24.
Next
Grüße
bastla
Bitte warten ..
Mitglied: mctini
08.12.2009 um 09:06 Uhr
Und wieder bist du es bastla....

Du bist cool ..
01.
F = Split(Z, "|") 11.    d.Add F(1), F(2
daran habe ich nicht gedacht
Bitte warten ..
Ähnliche Inhalte
VB for Applications
gelöst Per Vbscript bestimmte Zeile ungeachtet der Nummerierung prüfen (7)

Frage von aletri zum Thema VB for Applications ...

VB for Applications
gelöst Zuordnen von Daten per VBA aus zweitem anderen Tabellenblättern (4)

Frage von 132183 zum Thema VB for Applications ...

VB for Applications
gelöst VbScript: ADODB.Stream: Neue Zeile einfügen (2)

Frage von BirdyB zum Thema VB for Applications ...

Windows 7
gelöst VBScript - HTML Probleme mit Schriftgröße (5)

Frage von MedicalAd zum Thema Windows 7 ...

Neue Wissensbeiträge
Humor (lol)

Taschenrechner in IOS kaputt!

(5)

Information von Lochkartenstanzer zum Thema Humor (lol) ...

Sicherheit

Kanadischer Geheimdienst veröffentlicht erstmals Sicherheitssoftware

(3)

Information von BassFishFox zum Thema Sicherheit ...

Virtualisierung

Docker Monitoring und Steuerung per "sen"

Tipp von Frank zum Thema Virtualisierung ...

Heiß diskutierte Inhalte
Windows 7
Abbruch bei Brennvorgang (19)

Frage von Simulant zum Thema Windows 7 ...

Router & Routing
Externe IP von innen erreichbar machen (16)

Frage von Windows10Gegner zum Thema Router & Routing ...

Firewall
WIndows 7 RDP Massen Angriff (14)

Frage von Motte990 zum Thema Firewall ...