Hirdetés
Legfrissebb anyagok
Mobilarena témák
- Szívós, szép és kitartó az új OnePlus óra
- Motorola G86 - majdnem Edge
- Xiaomi 15T Pro - a téma nincs lezárva
- Huawei P10 - pisztácia nem is volt
- Yettel topik
- Honor Magic7 Pro - kifinomult, költséges képalkotás
- Samsung Galaxy S25 Ultra - titán keret, acélos teljesítmény
- Samsung Galaxy A37 – régi ismerős új formában
- Samsung Galaxy S26 Ultra - fontossági sorrend
- Fotók, videók mobillal
PROHARDVER! témák
IT café témák
Új hozzászólás Aktív témák
-
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
Új hozzászólás Aktív témák
Aktív témák
- reMarkable - paper tablet
- Szívós, szép és kitartó az új OnePlus óra
- AMD Navi Radeon™ RX 9xxx sorozat
- Megújult mobilos felület, fórumos ráncfelvarrás a PROHARDVER! lapcsaládon
- Eredeti játékok OFF topik
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- Kerékpárosok, bringások ide!
- Motorola G86 - majdnem Edge
- alza vélemények - tapasztalatok
- Autós topik
- További aktív témák...
Új fizetett hirdetések
Üzleti előfizetők hirdetései
- Asus TUF B760-Plus Wifi DDR5 (kis hibával)
- iPhone 17 256 GB Sage - Bontatlan !! www.stylebolt.hu - Apple eszközök és tartozékok - Számlás
- Hp USB-C/Thunderbolt 3 dokkolók: USB-C Universal, G2, G4, G5, Hp Elite/Zbook- Thunderbolt 4 G4
- Xcover 7 128/6
- Okosóra felvásárlás!! Apple Watch Series 6/Apple Watch Series 7/Apple Watch Series 8
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest