Batch programozás - Mobilarena Hozzászólások

Hirdetés

Legfrissebb anyagok

Mobilarena témák

PROHARDVER! témák

IT café témák

GAMEPOD témák

LOGOUT témák

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

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

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

Aktív témák

Hirdetés

Új fizetett hirdetések

Üzleti előfizetők hirdetései

Állásajánlatok

Számítástechnikai értékesítő

Cég: Laptopműhely Bt.

Város: Budapest

Részletek