Legfrissebb anyagok
PROHARDVER! témák
- Projektor topic
- Amlogic S905, S912 processzoros készülékek
- AMD vs. INTEL vs. NVIDIA
- NVIDIA GeForce RTX 5080 / 5090 (GB203 / 202)
- E-book olvasók
- AMD Ryzen 9 / 7 / 5 7***(X) "Zen 4" (AM5)
- Nem saját tervezésű a Zhaoxin új szerverprocesszora
- Apple asztali gépek
- Fejhallgató erősítő és DAC topik
- Milyen notebookot vegyek?
Mobilarena témák
IT café témák
Új hozzászólás Aktív témák
-
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
Új fizetett hirdetések
- Apple iPhone 16 Pro Max 256GB
- HAVN HS 420 PC ház, Midi-Tower, E-ATX, edzett üveg - fekete
- Új, bontatlan, iPhone 17 Pro Max gyárilag kártya-független, apple világgaranciával
- ÚJ HP Pavilion 16 - 16"IPS WUXGA - Ryzen 5 8540U 16GB - 512GB SSD - Win11 - 3 év garancia - MAGYAR
- EVGA Geforce RTX 3070 Ti FTW3 Ultra Gaming
Üzleti előfizetők hirdetései
- Yurbuds Ironman fülhallgató
- Gamer PC-Számítógép! Csere-Beszámítás! Mini PC! I5 10600KF / RTX 3060 12GB/ 16GB DDR4 / 1TB SSD
- HP ZBook Firefly 14 i7-1165G7 32GB 1000GB Nvidia Quadro T500 4GB 14" FHD 1 év garancia
- BESZÁMÍTÁS! ASRock B650M R5 7500F 32GB DDR5 1TB SSD RTX 3080 10GB Kolink Observatory RGB A-Data 750W
- BESZÁMÍTÁS! ASUS TUF Z390-PRO GAMING alaplap garanciával hibátlan működéssel
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest