Ergebnis 1 bis 6 von 6

Thema: vcf / txt Dateien splitten [ Quellcode vorhanden aber Problem ]

  1. #1
    telanion
    Gast

    Pfeil vcf / txt Dateien splitten [ Quellcode vorhanden aber Problem ]

    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:

    Code:
    ' ***************** 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 !

  2. #2
    ö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

  3. #3
    telanion
    Gast

    Pfeil

    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

  4. #4
    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:

    Code:
    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

  5. #5
    telanion
    Gast
    Code:
    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)

  6. #6

Ähnliche Themen

  1. Alles neu von Mia
    Von Ruffus im Forum Suche MP3s
    Antworten: 2
    Letzter Beitrag: 12.03.2008, 00:02
  2. (RS)PC Games 10/2006
    Von Sonderzeichen1 im Forum Zeitschriften, Magazine
    Antworten: 21
    Letzter Beitrag: 02.03.2007, 20:51
  3. Ist diese Einstellung krank?
    Von XFlorian im Forum Liebes- / Beziehungproblemecke
    Antworten: 49
    Letzter Beitrag: 29.12.2005, 08:25
  4. Links 2003
    Von hepbo im Forum [Suche] & [Umfrage] für Gamez
    Antworten: 0
    Letzter Beitrag: 22.01.2004, 18:21
  5. Mpeg Dateien für VCD - für DVD Player splitten
    Von miggi im Forum DVD & ASF Movies
    Antworten: 0
    Letzter Beitrag: 31.01.2002, 13:44

Berechtigungen

  • Neue Themen erstellen: Nein
  • Themen beantworten: Nein
  • Anhänge hochladen: Nein
  • Beiträge bearbeiten: Nein
  •