- DIGI kábel TV
- Windows 10
- 3 évre zárnák börtönbe a legnagyobb kriptotőzsde korábbi vezetőjét
- A személyre szabott reklám lehet a streaming következő slágere
- eBay
- Telekom otthoni szolgáltatások (TV, internet, telefon)
- Átjutottak a Ciscón, betörtek a kormányok hálózataiba
- Aliexpress tapasztalatok
- Mobilinternet
- Ingyenes vagy akciós szoftverek
Új hozzászólás Aktív témák
-
Bazs87
tag
RITKÁN, de van hogy a lustaság nem kifizetődő
így már a tesztejim szerint működik:
xlsx_dict = "U:\6_798\Translate\v01\pl.xlsx"
xlsx_trgt = "U:\6_798\Translate\v01\TIAProjectTexts_mod.xlsx"
Set fso = CreateObject( "Scripting.FileSystemObject" )
Set wobu = CreateObject("Scripting.Dictionary")
Set objExcel = CreateObject("Excel.Application")
if not fso.FileExists(xlsx_dict) then
MsgBox xlsx_dict + " nicht gefunden"
WScript.Quit()
end if
if not fso.FileExists(xlsx_trgt) then
MsgBox xlsx_trgt + " nicht gefunden"
WScript.Quit()
end if
objExcel.WorkBooks.Open xlsx_dict
Set objSheet = objExcel.ActiveWorkbook.Worksheets(1)
'dict aufladen
for i=1 to 532
tmp1 = cStr(objSheet.Cells(i,1).Value)
tmp2 = cStr(objSheet.Cells(i,2).Value)
tmp1 = Replace(tmp1,vbcrln,"</\>")
tmp2 = Replace(tmp2,vbcrln,"</\>")
if not wobu.exists(tmp1) then
wobu.add tmp1, tmp2
else
'MsgBox "Problem mit key: " + tmp1
end if
next
objExcel.ActiveWorkbook.Save
objExcel.ActiveWorkbook.Close
objExcel.WorkBooks.Open xlsx_trgt
Set objSheet = objExcel.ActiveWorkbook.Worksheets(1)
'Übersetzen
for i=2 to 24257
dtext = objSheet.Cells(i,5).Value
dtext = Replace(dtext,vbcrln,"</\>")
if wobu.exists(dtext) then
tmp = Replace(wobu(dtext),"</\>",vbcrln)
objSheet.Cells(i,6).Value = tmp
else
'
end if
next
objExcel.ActiveWorkbook.Save
objExcel.ActiveWorkbook.Close
objExcel.Application.Quit
Set objSheet = nothing
set objExcel = nothing
Set wobu = nothing
Set fso = nothing
msgBox "Fertig"
Új hozzászólás Aktív témák
- DIGI kábel TV
- Konzolokról KULTURÁLT módon
- Stellar Blade
- Kormányok / autós szimulátorok topicja
- Multimédiás / PC-s hangfalszettek (2.0, 2.1, 5.1)
- Windows 10
- Filmvilág
- Milyen billentyűzetet vegyek?
- 3 évre zárnák börtönbe a legnagyobb kriptotőzsde korábbi vezetőjét
- Intel Core i5 / i7 / i9 "Alder Lake-Raptor Lake/Refresh" (LGA1700)
- További aktív témák...
- Microsoft Surface Book 2 - i7-8650u/8GB/256GB SSD/Windows 11 -. 10% Most Csak 125990 Forint
- Microsoft Surface Go 2 tablet - 10% Most Csak 72660 Forint
- JBL Partybox 710
- iPad Pro 11 (2018), Wi-Fi, 64 GB, Space Gray
- Újszerű APPLE MACBOOK AIR 13.3 2020 M1 8/512GB (MGN93MG/A) Model : A2337 EZÜST - MAGYAR - 21 Ciklus
- Dell Gamer Tervezői Laptop 16" 3K!!! i7 11800H 16GB 512GB SSD RTX 3060 Jó Akku!
- HP Omen Óriás Brutál Gamer Laptop 17.3" 144hz i7 10750H 16GB 1TB SSD RTX 2070 8GB !!!
- AMD Radeon Pro V540 Dual Navi12 16Gb HBM2 Engineering sample (W5700XT Dual)
- Asus Tus2-c alaplap hátlapjával, usb kiegészítőjével...
- 4RF point-to-point eszközök