[ slavenp @ 23.06.2003. 20:25 ] @
Kako da string (npr A0) pretvorim u bajt u VB-u. Postoji li neka funkcija za to. Pozdrav |
[ slavenp @ 23.06.2003. 20:25 ] @
[ Shadowed @ 23.06.2003. 20:30 ] @
Jel to "A0" Hex zapis?
[ slavenp @ 23.06.2003. 21:00 ] @
nije hex nego string.
[ Shadowed @ 23.06.2003. 21:13 ] @
:) Ma naravno da je string ali mislio sam sta predstavlja, da li svaki karakter treba (na osnovu ASCII-a) da se prebaci u broj (Byte) ili je to primer Hex-a pa to A0 treba da se konvertuje u 160?
[ slavenp @ 23.06.2003. 21:39 ] @
Ok .
Svaki string koji ucitam iz tabele treba da prebacim u heksadecimalnu vrijednost da bi nad njime mogao vrsiti mat operacije. Elem A0 i dalje ostaje hA0 ali samo kao hex vrijednos (ili decimalno 160) Pozdrav [ mladenovicz @ 23.06.2003. 21:44 ] @
Dim ByteArray() As Byte
Private Sub StrToByte(byval Value as String) Dim i As Integer ReDim ByteArray(Len(Value) - 1) For i = 1 To Len(Value) ByteArray(i - 1) = Asc(Mid(Value, i, 1)) Next End Sub ------------------------------------------------- a mozes i ovako ByteArray = StrConv(Text, vbFromUnicode) ili ovako Call CopyMemory (ByteArray(0), ByVal Text, lText) gde je lText duzina stringa, a CopyMem API Declare Sub CopyMemory Lib "kernel32" Alias _ "RtlMoveMemory" ( _ hpvDest As Any, _ hpvSource As Any, _ ByVal cbCopy As Long) [Ovu poruku je menjao mladenovicz dana 23.06.2003. u 21:50 GMT] [Ovu poruku je menjao mladenovicz dana 23.06.2003. u 22:17 GMT] [ Shadowed @ 23.06.2003. 21:47 ] @
Mislim da sam shvatio.
Nemas za to gotovu funkciju ali... Code: Dim MyString as String Dim i as Integer Dim Output() as Byte MyString = UcitajIzTabele() 'kako vec dobijas string ReDim Output(Len(MyString)) For i = 1 to Len(MyString) Output(i)=Asc(Mid(Mystring,i,1)) Next i Eto, ovo ti prebacuje svaki karakter u byte na osnovu ASCII-a. Ja ne znam kako bi drugacije mogao da pretvoris String u Byte. EDIT: He, ovo je vec drugi put danas da istovremeno sa nekim postujem. Resenje je prakticno isto, samo na malko drugaciji nacin. [ slavenp @ 23.06.2003. 22:31 ] @
Nisam mislio da mi vrati ascii kod nego vrednost od 0 do 255.
Uspeo sam nesto sa funkcijom val(). U svakome slucaju hvala svima na korisnim savetima Da nisam do sada radio sa binarnim fajlovima u vb-u .Moze mi neko objasniti par detalja vezano za to , par primera, kako se otvara , pozicionira i sl. Pozdrav [ Shadowed @ 23.06.2003. 22:34 ] @
Obrati paznju na FileSystemObject. Toliko je jednostavno da obicno ne mozra da se objasnjava ali ako zapne kazi pa da pomazemo ;).
[ mladenovicz @ 23.06.2003. 22:57 ] @
Pogledaj u MSDNu Open
Trebalo bi da ide nekako ovako Dim FNum As Integer FNum = FreeFile Open FileName For Binary Access Write As FNum Put FNum, Offset, Values Close FNum S tim sto je Offset pozicija (broj bajtova) odakle pocinje upis. Trebalo bi staviti jedan top topic FileSystem Object. Sta mislis Shadowed? :) [ jc denton @ 23.06.2003. 23:42 ] @
Ako ste raspolozeni da napisete nesto kako treba u vezi FSO ili neke druge biblioteke, slazem se i podrzavam predlog. Uradite, a ja cu da stavim to kao TOP temu.
Pozdrav [ jc denton @ 23.06.2003. 23:45 ] @
Postoji jedna stara tema u vezi FSO i sl. :
http://www.elitesecurity.org/tema/9629/0#72276 [ mladenovicz @ 24.06.2003. 12:43 ] @
Citat: Ako ste raspolozeni da napisete nesto kako treba u vezi FSO Pravo da ti kazem jc dentone, ja bih samo napisao za rad sa fajlovima, folderima, drajvovima pogledajte FSO. Shadowed je vec rekao da je FSO zaista jednostavan, a i nazivi metoda su takvi da odmah mozes videti cemu koji metod sluzi. Uz to FSO je opisan u MSDNu, tako da mislim da nema smisla prepricavati MSDN ovde. Ako neko misli da treba napisati nesto vise o FSOu, ja cu usestvovati u tome. [ jc denton @ 25.06.2003. 02:48 ] @
Ajd' to jeste, ali rekoh i "ili neke druge biblioteke". Tako da .. samo izvolite.
Copyright (C) 2001-2024 by www.elitesecurity.org. All rights reserved.
|