Kako da string (npr A0) pretvorim u bajt u VB-u.
Postoji li neka funkcija za to.
Pozdrav
Postoji li neka funkcija za to.
Pozdrav
String u bajt
Zaključano
Zakačeno
Jel to "A0" Hex zapis?
nije hex nego string.
:) 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?
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
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
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]
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]
Potpis
Mislim da sam shvatio.
Nemas za to gotovu funkciju ali...
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.
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
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.
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
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
Obrati paznju na FileSystemObject. Toliko je jednostavno da obicno ne mozra da se objasnjava ali ako zapne kazi pa da pomazemo ;).
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? :)
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? :)
Potpis
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
Pozdrav
Potpis
fire, walk with me
Postoji jedna stara tema u vezi FSO i sl. :
https://www.elitesecurity.org/t9629#72276
https://www.elitesecurity.org/t9629#72276
Potpis
fire, walk with me
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.
Potpis
Ajd' to jeste, ali rekoh i "ili neke druge biblioteke". Tako da .. samo izvolite.
Potpis
fire, walk with me