> ...die Datei (Dateiendung ist .ITM, keine Ahnung, was das ist),
> als Hexcode eingelesen werden soll.
Vergiss den Gedanken. Du liest nicht in Hex ein. Da stehen simple Bits
und Bytes. Die haben einen Wert. Diesen Wert kannst du in Bin�r,
dezimal, oktal oder Hex darstellen. Das einzige was Du hast sind
Eingaben, die vielleicht in Hex daherkommen und weil man Hex nicht
direkt eingeben kann, eben Text sind. Sprich den Eingabetext musst Du
in eine Zahl umwandeltn. Hier mal ein nicht eben hochoptimiertes
Beispiel f�r ne eigene Funktion.
Function Hex2Dez (sString)
Dim helper, i, j, multi, temp
helper = array("0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "A",
"B", "C", "D", "E", "F")
hexstring = sString: temp = 0: multi = 1
For i = Len(hexstring) to 1 Step -1
a = Mid(hexstring, i, 1)
For j = 0 to 15
If Ucase(a) = helper(j) Then
temp = temp + (j * multi)
Exit For
End If
Next
multi = multi * 16
Next
Hex2Dez = temp
End Function
> Gesucht werden soll nach Bytewerten bzw. es werden Bytewerte
vorgegeben.
> Also von 21 BIS 3C, es k�nnen aber auch andere Bytes sein,
Diese Eingabewerte werden mit obiger Funktion in Zahlen konvertiert
> Und wie kann ich das/die gefundenen Zeichen ins Dezimalsystem
umwandeln? Gibt es sowas wie DEX(Gefundene/sZeichen)?
Siehe oben: es kommen keine Hexwerte daher. Es kommen Bits und Bytes,
die - weil VBScript nix anderes kann - als Text daherkommen. Einfach
den ASCII Wert (Asc-Funktion) ermitteln und per mathematischen Vergleich
(Zahl mit Zahl) mit den oben eingebenen Werten vergleichen.
sUntergrenze = Hex2Dez("21")
sObergrenze = Hex2Dez("3C")
' oder vielleicht so, wenn es sich um einen Formularhandler handelt
sUntergrenze = Hex2Dez(Request("obergrenze"))
sObergrenze = Hex2Dez(Request("untergrenze"))
Set fso = CreateObject("Scripting.FileSystemObject")
Set datei = fso.OpenTextFile(Server.Mappath("/bla/test.itm"))
sAlles = datei.ReadAll
datei.close
Angenommen die gesuchten Werte sollen zwischen Position 20 und 50
gesucht werden und falls vorhanden ausgegeben werden. Oder wenn Du die
ganze Datei durchsuchen willst, halt die Schleife umstricken (nicht
sicher, was Du da genau machen willst)
For i = 20 to 50
a = Asc(mid(sAlles, i, 1))
If a >= sUntergrenze And a <= sObergrenze Then
output = output & a & vbtab
output = output & Hex(a) & vbtab
' irgendwas in der Richtung
End If
Next
--
Viele Gr��e
Hubert Daubmeier
-----Original Message-----
From: Arkor Randor [mailto:[EMAIL PROTECTED]]
Sent: Wednesday, April 03, 2002 12:20 AM
To: ASP Diskussionsliste fuer Anfaenger
Subject: [aspdebeginners] RE: Text als Hexcode?
Hallo Hubert,
> Wenn ich es recht sehe ist es eher trivial was Du tun musst.
So? Finde ich nicht.
> > Es sollen die Bytes 21 bis 3C ausgegeben und dann als
> > Dezimal/Schrift in eine DB geschrieben werden.
> 21 ist 2 * 16 + 1 = 33
> 3C ist 3 * 16 + 12 = 60
Wieso mal 2 * und +1 und mal 3 * und +12? Das habe ich nie kapiert, aber
wie gesagt, ich besch�ftige mich sonst auch nicht mit Hexcode
> Die Aufgabe ist wohl das 33te und das 60te Zeichen einer Variable /
> eines Textes / eines DB-Feldes zu lesen und dann irgendwohin zu
> packen.
�h... nein. Mein Problem ist, das die Datei (Dateiendung ist .ITM, keine
Ahnung, was das ist), als Hexcode eingelesen werden soll. Hexcode wird
ja in Bytes dargestellt, als 32 f�r 50 in Dezimal, 49 f�r A, etc.
Gesucht werden soll nach Bytewerten bzw. es werden Bytewerte vorgegeben.
Also von 21 BIS 3C, es k�nnen aber auch andere Bytes sein, also z. B.
von 2A bis 41, das wird nicht von mir vorgegeben, ich soll "nur" den
Grundcode machen, das es funzt.
Gibt es nicht einen Befehl wie HEX(Variable) oder so? Oder kann ich das
in der Variable als Text definieren? Und wie kann ich das/die gefundenen
Zeichen ins Dezimalsystem umwandeln? Gibt es sowas wie
DEX(Gefundene/sZeichen)?
Habe schon das Internet abgegrast, doch irgendwie findet Google nix
gescheites oder ich suche falsch.
Gru�,
Arkor, http://www.drhirn.com/20
| Oft Gefragtes: http://www.aspgerman.com/aspgerman/faq/
| [aspdebeginners] als [EMAIL PROTECTED] subscribed
| http://www.aspgerman.com/archiv/aspdebeginners/ = Listenarchiv Sie
| knnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdebeginners.asp
| Oft Gefragtes: http://www.aspgerman.com/aspgerman/faq/
| [aspdebeginners] als [email protected] subscribed
| http://www.aspgerman.com/archiv/aspdebeginners/ = Listenarchiv
| Sie knnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdebeginners.asp
