- Apple iPhone 15 Pro Max - Attack on Titan
- Itt az első kép a 2024-es Nokia 3210-ről
- Samsung Galaxy S23 Ultra - non plus ultra
- Huawei Mate 20 Pro - a mindenit!
- Vodafone mobilszolgáltatások
- Netfone
- Honor Magic6 Pro - kör közepén számok
- Xiaomi Smart Band 8 - folyamatosan
- Realme 9 Pro+ - szükséges plusz?
- Google Pixel 8 Pro - mestersége(s) az intelligencia
Hirdetés
-
Rövid előzetesen a Lost Records: Bloom & Rage
gp A Don't Nod legújabb kalandjáték valamikor az év folyamán érkezik PC-re és konzolokra.
-
Piacvezető tandem OLED panellel érkezik az iPad Pro
ma Sokat kellett várni az első OLED képernyős Apple táblagépre, állítólag megérte.
-
Augusztustól nagyot változik a Shein élete
it Onnantól kezdve lesz a platformra érvényes az EU-ban a DSA, így számos kötelezettséget vesz a vállára a Shein.
-
Mobilarena
A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
Kérdés felvetése előtt olvasd el, ha még nem tetted.
Új hozzászólás Aktív témák
-
Pakliman
tag
válasz attilalr2 #28000 üzenetére
Hali!
Nem tudom, Nálad milyen kódolás van.
A munkahelyemen spec. program TXT kimenetét kellett átalakítanom olvashatóbbá.
A makró (standard modulba rakod):Private Declare Function CharToOemBuff Lib "user32" Alias "CharToOemBuffA" (ByVal lpszSrc As String, ByVal lpszDst As String, ByVal cchDstLength As Long) As Long
Private Declare Function OemToCharBuff Lib "user32" Alias "OemToCharBuffA" (ByVal lpszSrc As String, ByVal lpszDst As String, ByVal cchDstLength As Long) As Long
Public Function Konvert(mit, Optional KellKonvertálni As Boolean = True) As String
Dim vissza As Long
Dim dest As String
If KellKonvertálni Then
dest = Space(Len(mit))
vissza = OemToCharBuff(mit, dest, Len(mit))
Else
dest = mit
End If
Konvert = dest
End FunctionEzt használhatod cellába beírva, vagy akár egy újabb makróban is, amelyik végigfut a szükséges cellákon és átalakítja a tartalmukat.
[ Szerkesztve ]
Új hozzászólás Aktív témák
- Kihívás a középkategóriában: teszten a Radeon RX 7600 XT
- Kerékpárosok, bringások ide!
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- VR topik (Oculus Rift, stb.)
- Formula-1
- Mibe tegyem a megtakarításaimat?
- Milyen CPU léghűtést vegyek?
- Horgász topik
- Építő/felújító topik
- További aktív témák...