Tar upp denna tråden igen!
Det verkar inte bli någon som hellst skillnad mellan:
Set TextFile = FSO.CreateTextFile("C:\test.txt", False, True) 'UNICODE
Set TextFile = FSO.CreateTextFile("C:\test.txt", False, False) 'ASCII
Ska man se skillnad i filen på UNICODE och ASCII?
Känns som att jag snurrat in mig i detta nu så jag vet varken ut eller in :(
Har sökt i flera dagar på nätet engående detta och det enda jag kan hitta är en funktion(?) som finns inbyggd i windows API som heter CharToOem.
Problemet är att jag inte har lyckats använda den i VB som jag använder numera!!
Har hittat följande kod:
Private Declare Function Char2Oem Lib "user32" Alias "CharToOemA" (ByVal lpszSrc As String, ByVal lpszDst As String) As Long
Private Declare Function Oem2Char Lib "user32" Alias "OemToCharA" (ByVal lpszSrc As String, ByVal lpszDst As String) As Long
Public Function Char2Oem(aSrc As Variant) As String
On Error GoTo fel
Dim src As String, dst As String
If IsNull(aSrc) Then GoTo fel
src = aSrc: dst = aSrc: CharToOem src, dst: Char2Oem = dst: Exit Function
fel: Char2Oem = ""
End Function
Public Function Oem2Char(aSrc As Variant) As String
On Error GoTo fel
Dim src As String, dst As String
If IsNull(aSrc) Then GoTo fel
src = aSrc: dst = aSrc: OemToChar src, dst: Oem2Char = dst: Exit Function
fel: Oem2Char = ""
End Function
Källa till koden finns här: http://www.pellesoft.se/communicate/forum/view.aspx?msgid=158989&forumid=2&sum=0
Sitter med en VBS-fil just nu i windowsmiljö och koden ovan fungerar inte alls.
Finns heller inget som säger att funktionen ovan löser mitt problem, då den bara gör om innehållet man skickar in och inte hela filen!?
Har skapat en egen funktion som ersätter alla ANSI-tecken till ASCII, men det hjälper inte då programmet (samma som tidigare) tydligen känner av att filtypen inte är av rätt format, altså OEM.
Är verkligen i behov av att fixa detta nu när vi håller på att automatisera våra system.
Ge mig exempel på vad som helst som gör att jag kan SKAPA/KONVERTERA filer till OEM-format, om jag så ska lära mig ett nytt språk..så trött på detta nue x(
Moderator kan flytta tråd om det är aktuellt.
