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