Új hozzászólás Aktív témák

• looser addikt

  #573

  #572 sztanozs

  2013-12-10 18:32:07

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  looser

  addikt

  #572 sztanozs

  #572 sztanozs

  splitvcf.vbs

  filename = "C:\Temp\textfile"
  
  Set fso = CreateObject("Scripting.FileSystemObject")
  Set f = fso.OpenTextFile(filename)
  
  id = 0
  Do Until f.AtEndOfStream
  line = f.ReadLine
  If Trim(line) = "BEGIN:VCARD" Then
  startwrite = true
  Set fo = fso.CreateTextFile("C:\Temp\" & id & ".vcf", True)
  End If
  If startwrite Then
  fo.Write line & vbCrLf
  End If
  If Trim(line) = "END:VCARD" Then
  startwrite = false
  fo.Close
  id = id + 1
  End If
  Loop
  f.Close

  Valami gondja van a 4. sorral...

  Így indítom:

  splitvcf.vbs d:\htc\a.vcf d:\htc\all

  

  A mappanevek és a filenevek is pontosak.

  Azt pedig el is felejtettem mondani, hogy nagyon köszönöm, hogy foglalkozol a problémával!

Új hozzászólás Aktív témák