VB-Homepage Tipp 133

ANSI to ASC [Einlesen von DOS-Text]

Auch in Zeiten von Windows98 und WindowsNT 5.0 gibt es hinter den sieben Bergen bei den sieben Zwergen noch Programme, die unter DOS laufen.
(Sie erinnern sich sicher noch dunkel !).
Und diese Programme könnten rein theoretisch ihre Daten einfach als Text in eine Datei schreiben, so ganz ohne DBase oder sonstiges Format.
Ist auch ganz egal wie es dazu gekommen ist, auf alle Fälle ist es ja möglich, das Sie eine Textdatei besitzen, die unter DOS erstellt wurde und die Sie nun unter Windows auswerten möchten.
Und nun erinnern Sie sich bitte, wie das mit dem ASCII war, 128 Zeichen sind standard und 128 sind länderspezifisch. Und genau diese 128 sehen ggf. unter Windows anders aus als unter DOS, so zum Beispiel unsere Umlaute.
Ihr Text würde also etwas verunstaltet aussehen.
Aber damit ist jetzt Schluß.

ansitext.mak
ANSITEXT.FRM
ProjWinSize=152,402,248,215
ProjWinShow=2
IconForm="Form1"
Title="ANSITEXT"
ExeName="ANSITEXT.EXE"

ansitext.frm
VERSION 2.00
Begin Form Form1
Caption = "VB-Homepage Tipp"
ClientHeight = 2865
ClientLeft = 1095
ClientTop = 1485
ClientWidth = 7320
Height = 3270
Left = 1035
LinkTopic = "Form1"
ScaleHeight = 2865
ScaleWidth = 7320
Top = 1140
Width = 7440
Begin CommandButton Command2
Caption = "ASCII"
Height = 255
Left = 240
TabIndex = 2
Top = 2520
Width = 1215
End
Begin CommandButton Command1
Caption = "ANSI"
Height = 255
Left = 1560
TabIndex = 1
Top = 2520
Width = 1215
End
Begin ListBox List1
Height = 1590
Left = 240
TabIndex = 0
Top = 840
Width = 6855
End
Begin Label Label2
Alignment = 1 'Right Justify
Caption = "Gefunden auf : [http://www.basicworld.com] M.Schiffer"
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 255
Left = 2880
TabIndex = 4
Top = 2520
Width = 4215
End
Begin Label Label1
Alignment = 2 'Center
Caption = " Umwandeln von ANSI Code in ASCII Code ( Einlesen von DOS-Text unter Windows )"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "Arial"
FontSize = 12
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 615
Left = 240
TabIndex = 3
Top = 120
Width = 6855
End
End
Declare Function OemToAnsi Lib "Keyboard" (ByVal lpOemStr As String, ByVal lpAnsiStr As String) As Integer
Declare Function AnsiToOem Lib "Keyboard" (ByVal lpAnsiStr As String, ByVal lpOemStr As String) As Integer
Sub Command1_Click ()
Dim Zeile As String
Dim x As Integer
LIST1.Clear
Open "ansitext.dat" For Input As #1
While Not EOF(1)
Line Input #1, Zeile
x = OemToAnsi(Zeile, Zeile)
LIST1.AddItem Zeile
Wend
Close #1
End Sub
Sub Command2_Click ()
Dim Zeile As String
Dim x As Integer
LIST1.Clear
Open "ansitext.dat" For Input As #1
While Not EOF(1)
Line Input #1, Zeile
LIST1.AddItem Zeile
Wend
Close #1
End Sub
ansitext.dat ( Datendatei mit DOS-Text zum Testen)
M„usemelkmaschine
Fluápferdwaage
Kohlrben
V"lkerschlacht
100 cmý
200 Ltrü
« Pfd. Rosinen
¬ Pfd. Puderzucker
Um den Code zu nutzen, erstellen Sie sich mit einem Editor (z.Bsp. Notepad) Dateien
die Sie wie angegeben benennen und kopieren Sie den Code hinein. Speichern Sie Ihre
Datei ab und öffnen Sie das Projekt entweder direkt aus einem Dateimanager oder öffnen
Sie Ihre VB Software und laden sich das Projekt.

Tipp-Download

Quelle : M.Schifer auf http://www.basicworld.com

Zurück zur Übersichtsseite