vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 Erstellen von dynamischen Kontextmen?s - wann immer Sie sie brauchen!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Fortgeschrittene Programmierung
Re: Problem mit Schreiben in ein Array, auslesen klappt aber nicht schreiben 
Autor: DerMicha
Datum: 08.11.09 08:38
Ürgendwie hören die Probleme nie auf :/
Ich bin gerade dabei, von Hex in Ascii und von Ascii wieder zu Hex das soweit alles funktioniert wie es soll
aber eins funktioniert nicht. Wenn ich im Textbox ein zeichen lösche, bekomme ich eine fehlermeldung wenn ich die Datei abspeichern möchte.
Wie kann ich nun wenn ich ein Zeichen in Textbox entferne, das in Hex 00 geschrieben wird im Datei?

Hex zu Ascii und in Textboxen anzeigen: 
     Text1.Text = HexToAsc(Hex$(Data(31)))
     Text2.Text = HexToAsc(Hex$(Data(33)))
     Text3.Text = HexToAsc(Hex$(Data(35)))
     Text4.Text = HexToAsc(Hex$(Data(37)))
     Text5.Text = HexToAsc(Hex$(Data(39)))
     Text6.Text = HexToAsc(Hex$(Data(41)))
     Text7.Text = HexToAsc(Hex$(Data(43)))
     Text8.Text = HexToAsc(Hex$(Data(45)))
     Text9.Text = HexToAsc(Hex$(Data(47)))
    Text10.Text = HexToAsc(Hex$(Data(49)))
    Text11.Text = HexToAsc(Hex$(Data(51)))
    Text12.Text = HexToAsc(Hex$(Data(53)))
    Text13.Text = HexToAsc(Hex$(Data(55)))
    Text14.Text = HexToAsc(Hex$(Data(57)))
    Text15.Text = HexToAsc(Hex$(Data(59)))
    Text16.Text = HexToAsc(Hex$(Data(61)))
    Text17.Text = HexToAsc(Hex$(Data(63)))
    Text18.Text = HexToAsc(Hex$(Data(65)))
    Text19.Text = HexToAsc(Hex$(Data(67)))
    Text20.Text = HexToAsc(Hex$(Data(69)))
    Text21.Text = HexToAsc(Hex$(Data(71)))
    Text22.Text = HexToAsc(Hex$(Data(73)))
    Text23.Text = HexToAsc(Hex$(Data(75)))
    Text24.Text = HexToAsc(Hex$(Data(77)))
    Text25.Text = HexToAsc(Hex$(Data(79)))
Textbox Inhalt zurück zu Hex und in Datei schreiben (Code nicht enthalten):
(Dieser Teil macht mir Probleme) 
Data(31) = CByte(Asc(Text1.Text))
    Data(33) = CByte(Asc(Text2.Text))
    Data(35) = CByte(Asc(Text3.Text))
    Data(37) = CByte(Asc(Text4.Text))
    Data(39) = CByte(Asc(Text5.Text))
    Data(41) = CByte(Asc(Text6.Text))
    Data(43) = CByte(Asc(Text7.Text))
    Data(45) = CByte(Asc(Text8.Text))
    Data(47) = CByte(Asc(Text9.Text))
    Data(49) = CByte(Asc(Text10.Text))
    Data(51) = CByte(Asc(Text11.Text))
    Data(53) = CByte(Asc(Text12.Text))
    Data(55) = CByte(Asc(Text13.Text))
    Data(57) = CByte(Asc(Text14.Text))
    Data(59) = CByte(Asc(Text15.Text))
    Data(61) = CByte(Asc(Text16.Text))
    Data(63) = CByte(Asc(Text17.Text))
    Data(65) = CByte(Asc(Text18.Text))
    Data(67) = CByte(Asc(Text19.Text))
    Data(69) = CByte(Asc(Text20.Text))
    Data(71) = CByte(Asc(Text21.Text))
    Data(73) = CByte(Asc(Text22.Text))
    Data(75) = CByte(Asc(Text23.Text))
    Data(77) = CByte(Asc(Text24.Text))
    Data(79) = CByte(Asc(Text25.Text))
Vieleicht wäre es möglich, die HexToAsc in AscToHex umzu schreiben, aber das würde bestimmt auch das gleiche raus kommen wenn ich ein Zeichen im Textbox lösche

Das ist die Funktion von Hex nach Ascii 
Function HexToAsc(ByVal hstr As String) As String
Dim x As Long
Dim nstr As String
For x = 1 To Len(hstr) Step 2
nstr = nstr & Chr(Val("&H" & Mid$(hstr, x, 2)))
Next
HexToAsc = nstr
End Function
Gruss Micha

Beitrag wurde zuletzt am 08.11.09 um 08:53:00 editiert.
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Problem mit Schreiben in ein Array, auslesen klappt aber nic...1.171DerMicha04.11.09 04:34
Re: Problem mit Schreiben in ein Array, auslesen klappt aber...782ModeratorDieter04.11.09 06:00
Re: Problem mit Schreiben in ein Array, auslesen klappt aber...711DerMicha04.11.09 07:13
Re: Problem mit Schreiben in ein Array, auslesen klappt aber...770ModeratorDieter04.11.09 07:23
Re: Problem mit Schreiben in ein Array, auslesen klappt aber...738DerMicha04.11.09 07:26
Re: Problem mit Schreiben in ein Array, auslesen klappt aber...753DerMicha08.11.09 08:38
Re: Problem mit Schreiben in ein Array, auslesen klappt aber...683DerMicha08.11.09 13:31

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
  
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel