title image


Smiley OEMToChar VB DOTNET ???
Hallo,



ich versuche, leider erfolglos, mit der Function OEMToChar Zeichen einer Textdatei zu konvertieren.



Private Declare Function OemToCharA Lib "user32" ( _

ByVal lpszSrc As String, ByVal lpszDst As String) As Long



Alle Codebeispiele die ich finde funktionieren hervorragend unter VB6. Leider ist es mir nicht gelungen die Sache unter VB DOTNET zum Laufen zubringen.



Das Einlesen der Daten aus einer Textdatei funktioniert noch, danach ist allerdings Schluss.



DOTNET-Code: Was ist falsch??



Declare Function OemToChar Lib "user32" Alias "OemToCharA" (ByVal lpszSrc As String, ByVal lpszDst As String) As Long



Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click







Dim soem As String

Dim schr As String







FileOpen(1, "c:\xy\brief.txt", OpenMode.Input)

Do While Not EOF(1)

soem = LineInput(1)

OemToChar(soem, schr)

Debug.WriteLine(schr)

Loop

FileClose(1)

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: