ABOUT Visual Basic Programmieren Programmierung Download Downloads Tips & Tricks Tipps & Tricks Know-How Praxis VB VBA Visual Basic for Applications VBS VBScript Scripting Windows ActiveX COM OLE API ComputerPC Microsoft Office Microsoft Office 97 Office 2000 Access Word Winword Excel Outlook Addins ASP Active Server Pages COMAddIns ActiveX-Controls OCX UserControl UserDocument Komponenten DLL EXE
Diese Seite wurde zuletzt aktualisiert am 17.09.2000

Diese Seite wurde zuletzt aktualisiert am 17.09.2000
Aktuell im ABOUT Visual Basic-MagazinGrundlagenwissen und TechnologienKnow How, Tipps und Tricks rund um Visual BasicActiveX-Komponenten, Controls, Klassen und mehr...AddIns für die Visual Basic-IDE und die VBA-IDEVBA-Programmierung in MS-Office und anderen AnwendungenScripting-Praxis für den Windows Scripting Host und das Scripting-ControlTools, Komponenten und Dienstleistungen des MarktesRessourcen für Programmierer (Bücher, Job-Börse)Dies&Das...

Themen und Stichwörter im ABOUT Visual Basic-Magazin
Code, Beispiele, Komponenten, Tools im Überblick, Shareware, Freeware
Ihre Service-Seite, Termine, Job-Börse
Melden Sie sich an, um in den vollen Genuss des ABOUT Visual Basic-Magazins zu kommen!
Informationen zum ABOUT Visual Basic-Magazin, Kontakt und Impressum

Zurück...

ANSI nach ASCII und retour

Zurück...


Anzeige

(-hg) mailto:hg_ansiascii@aboutvb.de

Fast schon in historische Vergessenheit versunken ist der erweiterte 8-Bit-ASCII-Zeichensatz. Der unter MS-DOS eingesetzte Zeichensatz verwendet ab dem Zeichencode 128 eine andere Belegung als der unter Windows gebräuchliche ANSI-Zeichensatz. Dies werden Sie vor allem bemerken, wenn Sie von einer MS-DOS-Anwendung erstellte (unformatierte) Texte in einem Windows-Programm darstellen, oder sich umgekehrt z.B. mit dem Windows-Editor (Notepad) erstellte Texte unter MS-DOS ansehen.

Zur Konvertierung zwischen beiden Zeichensätzen bietet das Windows-API die beiden Funktionen CharToOemCharToOem und OemToCharOemToChar an. Hierbei entspricht "Oem" dem ASCII-Zeichensatz und "Char" (wie selbstverständlich...) dem Windows-ANSI-Zeichensatz. Bei beiden Funktionen wird im ersten Parameter der zu konvertierende String übergeben und das Ergebnis im zweiten Parameter zurückgegeben. Da die Konvertierung der Zeichen 1:1 erfolgt (die Anzahl der Zeichen der Strings bleibt unverändert), können Sie ein und denselben String sowohl zur Übergabe als auch für das Ergebnis verwenden. Anderenfalls müssen Sie einen gleich langen leeren String als Rückgabeparameter verwenden, wenn Sie den Ausgangsstring unverändert weiter verwenden wollen.

Die beiden Hilfsfunktionen ASCIItoANSI und ANSItoASCII vereinfachen die Aufrufe der API-Funktionen etwas und bieten das gewohnte Funktions-"Feeling". Sie übergeben den zu konvertierenden String und erhalten einen neuen als Rückgabewert, den Sie natürlich wieder dem gleichen String zuweisen können.

Private Declare Sub OemToChar Lib "user32" Alias "OemToCharA" _
 (ByVal StrFrom As String, ByVal StrTo As String)
Private Declare Sub CharToOem Lib "user32" Alias "CharToOemA" _
 (ByVal StrFrom As String, ByVal StrTo As String)

Public Function ASCIItoANSI(ByVal AsciiString As String) _
 As String

  OemToChar AsciiString, AsciiString
  ASCIItoANSI = AsciiString
End Function

Public Function ANSItoASCII(ByVal AnsiString As String) _
 As String

  CharToOem AnsiString, AnsiString
  ANSItoASCII = AnsiString
End Function

Mit den Funktionen ASCIItoANSI und ANSItoASCII konvertieren Sie einen String von einem Zeichensatz in den anderen

Verwendung bei separatem Ausgangs- und Zielstring:

Dim Quelle As String
Dim Ziel As String

Quelle = "Ärger ist öfter üblich"
Ziel = ANSItoASCII(Quelle)

Verwendung bei gleichem Ausgangs- und Zielstring:

Dim Text As String

Text = "Ärger ist öfter üblich"
Text = ANSItoASCII(Text)


Modul modAnsiAscii (modAnsiAscii.bas - ca. 0,7 KB)


Artikel
Zum Download-Bereich dieses Artikel
Mail an den Autor dieses Artikel

KnowHow
Zur KnowHow-Übersicht

KnowHow-Themen
Themen - Allgemeines
Themen - Entwicklungsumgebung (VB-IDE)
Themen - Forms
Themen - Steuerelemente (Controls)
Themen - Grafik
Themen - Dateien
Themen - UserControls
Themen - Einsteiger-Tipps
Themen - Wussten Sie...?

Übersicht nach Titeln in alphabetischer Reihenfolge
Übersicht nach Erscheinungsdatum

Schnellsuche



Zum Seitenanfang

Copyright © 1999 - 2017 Harald M. Genauck, ip-pro gmbh  /  Impressum

Zum Seitenanfang

Zurück...

Zurück...

Download Internet Explorer