- Computex 2024: extravagáns üveg-alumínium házköltemény az In Wintől
- Computex 2024: asgardi ASUS ROG UPS játékosoknak
- Computex 2024: MagSafe külső SSD és Apple Lokátoros burkolat az MSI-től
- Computex 2024: színes e-papírral tenné egyedivé a laptopok megjelenését az ASUS
- (Újra)indítjuk a PH! YouTube-csatornáját
- TCL LCD és LED TV-k
- Azonnali notebookos kérdések órája
- OLED TV topic
- 3D nyomtatás
- Computex 2024: extravagáns üveg-alumínium házköltemény az In Wintől
- Milyen videókártyát?
- Autós kamerák
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- Computex 2024: bemutatkozott a Biostar alaplapok AMD-s zászlóshajója
- Kormányok / autós szimulátorok topicja
Hirdetés
-
Egyedi megoldást kínál majd a CMF első készüléke
ma Az első előzetesben látott, csavarszerű képződmény a Nothing Lock, amivel különféle kiegészítőket lehet majd a készülékre applikálni.
-
Computex 2024: asgardi ASUS ROG UPS játékosoknak
ph A bel- és kültéren egyaránt bevethető megoldás a vállalat szerint egy órán át működtethet egy NVIDIA GeForce RTX 4080 VGA-val szerelt számítógépet.
-
New York visszafogná a közösségi média algoritmusait
it A fiatalokat védenék azzal, hogy megtiltanák a tartalmak algoritmikus vezérlését a fiataloknál, szülői hozzájárulás hiányában.
Új hozzászólás Aktív témák
-
sztanozs
veterán
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
JOGI NYILATKOZAT: A bejegyzéseim és hozzászólásaim a személyes véleményemet tükrözik; ezek nem tekinthetők a munkáltatóm hivatalos állásfoglalásának...
-
sztanozs
veterán
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[ Szerkesztve ]
JOGI NYILATKOZAT: A bejegyzéseim és hozzászólásaim a személyes véleményemet tükrözik; ezek nem tekinthetők a munkáltatóm hivatalos állásfoglalásának...
Új hozzászólás Aktív témák
- HP Pavilion 27-ca2006nb - ÚJ - 27" All-IN-ONE PC - i5-13400T, 16GB, 1TB SSD, QHD 2k, 350nit
- Dell Optiplex 7070 SFF:Kis tervező/gamer PC:i7 9700, 32GB RAM, 512GB SSD,Quadro P1000,4xmDP+HDMI,Win
- Dell Latitude 7400 - i5 8365u/8GB/256GB Nvme SSD/Windows 11
- Sigma 23mm f/1.4 DC DN (C) Sony E objektív
- Delta 3400RPM 113CFM Ventilátor 12cm / 500+ Raktáron
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen
Cég: Alpha Laptopszerviz Kft.
Város: Pécs