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

• sztanozs veterán

  #576

  #573 looser

  2013-12-10 18:40:47

  Ú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

  

  sztanozs

  veterán

  #573 looser

  #573 looser

  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!

  output dir végére kell lezáró \

  if WScript.Arguments.Count() <> 2 Then
  wscript.echo "Usage:" & vbcrlf & "splitvcf.vbs filename output_dir"
  wscript.quit -1
  End If
  filename = WScript.Arguments(0)
  odir = WScript.Arguments(1)
  
  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(odir & Right("00000" & id, 6) & ".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

• sztanozs veterán

  #574

  #573 looser

  2013-12-10 18:36:37

  Ú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

  

  sztanozs

  veterán

  #573 looser

  #573 looser

  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!

  A kód első sorában kell beállítani, hogy hol a fájl - át kell íni a "-ök között. A kimeneti könyvtárak később kell a kódba beírni, de mindjárt megmódosítom neked

• sztanozs veterán

  #572

  #571 looser

  2013-12-10 18:04:05

  Ú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

  

  sztanozs

  veterán

  #571 looser

  #571 looser

  Sziasztok! Valaki írna nekem egy olyan batchet, amely egy textfilet (első paraméter) feldarabol és a darabjait növekvő számsorba rendezve leteszi egy tetszőleges mappába (második paraméter) vagy akár ugyanoda leteszi *.vcf néven? Egy vCard-ot szeretnék darabolni, de órák óta küzdök és egy rakat alkalmazást kipróbáltam, de mindegyik elhasalt ezen a "feladaton". Maga a .vcf file (névjegyzék) egy elhalt androidos telóról való, amit egy Nokia 3110-be szeretnék feltölteni, de a PC Suite az első nevet hajlandó csak betölteni. 1500+ nevet tartalmaz a vcard, így nem szeretném egyenként szétdarabolni...
  Nagy köszönet a segítségért!

  Apropó: a BEGIN:VCARD sor előtt és az END:VCARD sor után kellene vágnia.

  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

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