vcf / txt Dateien splitten [ Quellcode vorhanden aber Problem ]

[telanion]

Hi,

ich war auf der Suche nach einem kleinen Tool,
welches mir meine .vcf (Telefonbuch Dateien) aufsplitten kann,
damit ich aus einer VCF Datei mehrere Kontakte "extrahieren" kann...

Hintergrund Infos:
denn wenn ich das Telefonbuch von meinem Telefonbuch per Infarot übertrage (ohne Sync. Tools) erhalte ich eine .vcf Datei mit allen Daten -
wenn ich diese in Outlook importieren möchte wird nur der erste Eintrag gelesen

Quellcode dazu habe ich gefunden:

' ***************** Bitte den Path zu den VCF Dateien anpassen !!!! ****************

' Dieses Script liest alle Groupwise VCF Dateien im "VCFFolder" ein und legt gleichnahmige Unterverz. 
' an und exportiert darin die einzelnen VCF Dateien

Const ForReading = 1
DIM VCSFile , objNewVCSFile
Dim Line , NewFile, path
Dim fso1, f, f1, fc, s
DIM OK , MSGpath

OK=False
Zaehler=0



'______________________________

VCFFolder="d:\temp\"

'________________________________


Set fso1 = CreateObject("Scripting.FileSystemObject")
Set f = fso1.GetFolder(VCFFolder)
Set fc = f.Files
For Each f1 in fc

If instr(lcase(f1.name),".vcf") then
Filename=f1.name
Start
end if


Next

If OK=True then

call MsgBox("Die *.VCF Dateien liegen in den Verzeichnissen : "+ chr(13) + Left(MSGpath,LEN(MSGPATH)-5) + chr(13) + "und können mit Outlook importiert werden",65,"Mitteilung")

end if


Sub start()
path=Left(Filename,Len(Filename)-4)



VCSFile = VCSArray()

Set Verz = CreateObject("Scripting.FileSystemObject")

If Not Verz.FolderExists(vcffolder+Path) then
Set ts = Verz.CreateFolder(VCFFolder+Path)
MSGpath=MSGpath + Path + " und "
For Each Line in VCSFile

If InStr(Line,"BEGIN:VCARD") then 
NewFile=True
Zaehler=zaehler+1
Set objFSO = CreateObject("Scripting.FileSystemObject")
File=vcffolder+Path+"\"+Path+CStr(zaehler)+".vcf"
Set objNewVCSFile = objFSO.CreateTextFile(File, True, False)
end if


if InStr(Line,"END:VCARD") then
NewFile=False
objNewVCSFile.Writeline(line)
objNewVCSFile.close
end if


If NewFile=True then
objNewVCSFile.Writeline(line)
OK=true
END IF

Next 
else
call MsgBox("Das Verzeichniss : "+Path + " ist schon vorhanden. Bitte dieses vorher löschen",65,"Fehler")


end if

end sub


Function VCSArray()
Dim fso, ts, s, lines, FileArray
Const ForReading = 1

Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.OpenTextFile(Filename, ForReading)
s = ts.ReadAll
ts.Close

VCSArray=split(s, vbNewLine, -1,1)
End Function

leider bekomme ich es nicht ausgeführt/compiliert.

Hat jemand nen kleinen Tip für mich oder kann mir sogar noch mehr helfen ?!

Danke schonmal !

[Feuerstein]

öhm, mal ne frage vorweg: Gesetzt der Fall, wir übersetzen die Source. Willst du dann jede einzelne der entstehenden vcf von hand in outlook importieren ? Wäre es da nicht sinnvoller, die eingelesenen Daten in ein von Outlook lesbares Format zu schreiben ?


// den code brauchst du nicht zu kompilieren. es handelt sich um vbs code. einfach alles in eine leere textdatei kopieren, dies in meinprog.vbs umbenennen und fertig

[telanion]

Danke für die schnelle Antwort.

Generell will ich sie war danach in Outlook importieren, aber das hätte ich ja auch über das Handy-Sync. Programm machen können...
mir gings drum, dass wenn ich über Infarot die .vcf Datei übertrage in der alle Kontakte gespeichert sind, diese über ein kleines Script eben "splitten" kann...

Ich hatte es schon versucht, aber aufgrund eines deaktivierten Script Host wollte er nicht - hab ihn nun aktiviert und hat geklappt
Er bennent die Dateien zwar nur mit ....1.vcf, ....2.vcf, ... aber das ist nicht so wild.

(Gibts da ne Möglichkeit, dass die Dateinamen aus Vor- und Nachname generiert werden oder ist das mit vbs nicht "so einfach" machbar ?!

edit: hmm, zu früh gefreut ?! Wenn ich jetz in Outlook die .vcf Dateien (einzeln *g*) importieren will zeigt er mir zwar den Namen unter "Speichern unter" aber nicht im normalen Namensfeld... wobei wenn ich auf "Namen" klicke (da wo man auch den Namenszusatz, ... einstellen kann) zeigt er mir wiederum doch den Namen an ?!

Wäre also doch ggf. an einer Outlook-konformen Lösung interessiert

[Feuerstein]

hmm, joa, also das umbennen der dateien nach dem aktuellen datensatz geht natürlich mit ein wenig fummelei allerdings vertrete ich nach wie vor die ansicht, das eine einzelne datei sinnvoller ist.

Für dein anderes Problem bräuchte ich mal eine vom Handy generierte vCard (vcf). Diese kannst du nach dem Export einfach mit einem Txteditor öffnen. Hier bei mir habe ich mal eine mit Outlook erstellt. Das sieht dann so aus:

BEGIN:VCARD
VERSION:2.1
N:Nachname;Name
FN:Name Nachname
ORG:Firma
TITLE:Position
TEL;WORK;VOICE:GeschTel
TEL;HOME;VOICE:PrivTel
TEL;CELL;VOICE:Mobil
TEL;WORK;FAX:GeschFax
ADR;WORK:;;blubstrasse;Ort;Region;plz;Deutschland
LABEL;WORK;ENCODING=QUOTED-PRINTABLE:blubstrasse=0D=0AOrt, Region plz=0D=0ADeutschland
URL;WORK:http://website
REV:20050829T153612Z
END:VCARD

[telanion]

BEGIN:VCARD
VERSION:2.1
N:Nachname;Vorname
TEL;HOME:+49123456789
TEL;WORK:+49123456789
EMAIL;INTERNET;PREF:[email protected]
TEL;CELL:+49123456789
END:VCARD

so kommt das bei diesem alten handy raus... (es handelt sich um ein Sony Ericsson T68i)

ich bin gerade doch schwer am überlegen ob ich nicht einfach mit diesem XTND synchronisiere... (das müsste nach Aussagen in versch. Foren ohne Probleme funktionieren)

[Feuerstein]

na, dann überleg mal ....