Hallo.
Ich habe eine Semikolon getrennte Datei (wie CSV) und möchte diese einlesen. diese dann umformatieren und als Excel File Abspeichern.
hab mal ein Bsp. an gehangen.
meine Frage. wie kann ich auf einzelne Werte zugreifen. z.B. auf das Feld „Mounting“ (nach dem Feld [Data]
a;;;;;
b;;;;;
g;;;;;
t;;;;;
r;;;;;
s;;;;;
k;;;;;
h;;;;;
d;;;;;
re;;;;;
VersionVariant;;;;;
Comment;;;;;
LastError;;;;;
[AdditionalHeader];;;;;
tibi 5;tibi 6;;;;
[Data];;;;;
150;Mounting Test:stuck_out_tongue_winking_eye:;1;;
ID 030;CurrentMeasurement:stuck_out_tongue_winking_eye:;-0.0000005702917;-999999;999999
20:stuck_out_tongue_winking_eye:ower up 
;1;;
;32K1 - on (Open Contact);0;0;
;32K2 - off (Close Contact);0;0;
030 020;Agilent 13.5V:stuck_out_tongue_winking_eye:;1;;
30;Start sessio:stuck_out_tongue_winking_eye:;1;;
456;Wait 200 ms:stuck_out_tongue_winking_eye:;0;0;
45;Change session:stuck_out_tongue_winking_eye:;1;;
8256;Change session (10,60);2;2;
82;Functions:stuck_out_tongue_winking_eye:;1;;
45;27,61:stuck_out_tongue_winking_eye:;2;2;
568;K2,K3,K4:stuck_out_tongue_winking_eye:;2;2;
2568;Get Timer Start:stuck_out_tongue_winking_eye:;2.946;20;
2568;Dataset No (23,13,00,MA,LA,Count);2;2;
28;Dataset No:stuck_out_tongue_winking_eye:;2;2;
50;SerialNr:stuck_out_tongue_winking_eye:;1;;
2568;Read Number (23,13,00,MA,LA,Count);2;2;
258;Get Timer Check 14 digit:stuck_out_tongue_winking_eye:;0.095;15;
;;1;;
Hallo Patrick,
Ich habe eine Semikolon getrennte Datei (wie CSV) und möchte
diese einlesen. diese dann umformatieren und als Excel File
Abspeichern.
öffne sie doch mit Excel.
meine Frage. wie kann ich auf einzelne Werte zugreifen. z.B.
auf das Feld „Mounting“ (nach dem Feld [Data]
In Spalte A nach [data] suchen lassen dann den Inhalt der Zelle eine Zeile und 1 Spalte weiter rechts ausgeben lassen.
Gruß
Reinhard
ja kann mann auch, aber ich will ja noch bissl umsortieren.
Aber denke ich muss mich da erstmal weiter mit VBA beschäfftigen
Hallo Patrick,
ja kann mann auch, aber ich will ja noch bissl umsortieren.
na und, könntest du auch in der XL-Tabelle.
Aber denke ich muss mich da erstmal weiter mit VBA
beschäfftigen
Was fehlt dir noch? Code zum Einlesen einer Textdatei?
Gruß
Reinhard
im grund der gesammte CODE. Sorry hab mir das bissl simpler vorgestellt.
also
- stelle in textdatei suchen
- Wert in nachfolgender Zeile hinter dem 3 Semikolon kopieren kopieren
- dann an eine gewünschte Stelle in der neuen Tabelle scxhreiben
usw.
Also im grunde nur definuier aus einer datei lesen und in eine XL-Tabelle definiert schreiben
Hallo Patrick,
Sorry hab mir das bissl simpler vorgestellt.
die simplere Lösung Excel das Einlesen zu überlassen willste ja nich.
also
- stelle in textdatei suchen
- Wert in nachfolgender Zeile hinter dem 3 Semikolon kopieren
Der klassische Weg ist die Datei zeilenweise einzulesen.
Habe ich bei meiner vorigen Antwort vergessen zu schreiben, google
mal nach
Vba freefile Open for input
Du findest damit reichlich Code.
Benutze vom Code die Zeile
FF=Freefile
Und die „Schleife“ von Open „datei“ For Input As bis hin zu Close #FF.
Rest ist egal.
Dann versuche ein Testmakro zu basteln was eine Textdatei ausliest.
- dann an eine gewünschte Stelle in der neuen Tabelle
scxhreiben
Ist noch erklärungsbedürftig was denn da nun die gewünschte Stelle ist
und ob die neue Tabelle eine andere ist als die die den Code in sich hat u.vm.
Gruß
Reinhard
Hi
Ich fange mal einfach an. An einem Anderen Beispiele. Habe diese Spalten
A B C
MONTIERT; Eboard4-4.11
MONTIERT; Eboard4-4.60
MONTIERT; Eboard4-4.60
MONTIERT; Eboard4-5.01
MONTIERT; Eboard4-5.02
MONTIERT; Main1.9.7
MONTIERT; Main7.1
Und möchte die Werte hinter dem Semikolon in Spalte C kopieren
- wie sag ich ihm, das er erst nach "; " 8Semoíkolon und Leerzeichen) lesen soll und dies dann in eine andere Zeile kopieren soll
Danke