/ Forside / Teknologi / Udvikling / VB/Basic / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
VB/Basic
#NavnPoint
berpox 2425
pete 1435
CADmageren 1251
gibson 1230
Phylock 887
gandalf 836
AntonV 790
strarup 750
Benjamin... 700
10  tom.kise 610
Overføre et array til en funktion byval?
Fra : kikki


Dato : 26-06-01 08:38

Jeg har en funktion som skal bruge et array af bytes, byval. Hvordan gør
jeg dette?
Og lige en anden ting, hvordan kan jeg konvertere et array af bytes til
en string, og tilbage igen?

Kikke

--
Leveret af:
http://www.kandu.dk/
"Vejen til en hurtig løsning"


 
 
Mikkel Bundgaard (26-06-2001)
Kommentar
Fra : Mikkel Bundgaard


Dato : 26-06-01 16:01



kikki <kikki.news@kandu.dk> wrote in message
news:sYWZ6.2849$lf5.476668@news010.worldonline.dk...
> Jeg har en funktion som skal bruge et array af bytes, byval. Hvordan gør
> jeg dette?
> Og lige en anden ting, hvordan kan jeg konvertere et array af bytes til
> en string, og tilbage igen?
>
> Kikke
>
> --
> Leveret af:
> http://www.kandu.dk/
> "Vejen til en hurtig løsning"
Hej Kikke

Nedenstående er klippet fra Word VBA hjælpfil, så
mon ikke det også gælder for VB.

Matrixer, der er erklæret med Dim, ReDim eller Static
kan ikke overføres med ByVal. Denne fejl har følgende
årsag og løsning:

· Du har forsøgt at overføre en hel matrix med ByVal.

Et enkelt element i en matrix kan overføres ByVal
(som værdi), men en hel matrix skal overføres med
ByRef (som reference). Bemærk, at ByRef er standard.

Hvis du skal overføre en matrix med ByVal for at
forhindre, at ændringer i matrixens elementer forplantes
tilbage til det program, der foretager kaldet, skal du
overføre matrixargumentet i sine egne parenteser, eller
du kan anbringe det i en Variant og derefter overføre
Variant til parameteren ByVal, som vist nedenfor:

Dim MyVar As Variant
MyVar = OldArray()

Mht. til en funktion, der kan konvertere et array af bytes til
en string, kan se på nedenstående. Kode er dog _smidt_ ud
af ærmet, så det kan godt være, at der er fejl i den .

Public Function ArrayToString(varInput As Variant) As String
Dim MyInput() As Byte
MyInput = varInput
Dim output As String
Dim i As Integer

For i = LBound(MyInput) To UBound(MyInput)
output = output + Chr(MyInput(i))
Next i

ArrayToString = output
End Function

Det kan godt være at der findes en lettere måde, men ikke
en som jeg lige kan komme på .
--
Mvh.
Mikkel Bundgaard
RUC Datalogi
http://officehelp.gone.dk


kpo@mail1. (26-06-2001)
Kommentar
Fra : kpo@mail1.


Dato : 26-06-01 17:16

On Tue, 26 Jun 2001 07:37:53 GMT, "kikki" <kikki.news@kandu.dk> wrote:

>Jeg har en funktion som skal bruge et array af bytes, byval. Hvordan gør
>jeg dette?
Så vidt jeg husker, så kan man ikke overføre arrays byval... Trist.
(men prøv at skrive "byval" foran parameteren - hvis VB melder fejl,
så har jeg ret, ellers har du vundet).

>Og lige en anden ting, hvordan kan jeg konvertere et array af bytes til
>en string, og tilbage igen?

En måde kunne være følgende, hvor tallene er adskilt af ";"

function ReturnString(ByteArray() as Byte) as string
dim tmpString as string   ' her bygger vi strengen op
dim antal as integer   ' antal elementer i array'et
dim i as integer      ' tæller

Antal = Ubound(ByteArray) ' antal elementer minus 1
tmpString = ""

For i = 0 to Antal
   ' næste tal i rækken
   tmpstring = tmpstring & cstr(ByteArray(i))
   ' hvis ikke sidste tal - så sæt komma efter
   If i < Antal then
      tmpString = tmpString & ","
   end if
next

' strengen returneres
ReturnString = tmpString

end function


Den anden vej kan løses ved at bruge splitfunktionen der er indbygget
i visual basic.

function ReturnByteArray(MyString as string) as Byte()
dim V as Variant ' splitfunktionen kræver en variant
dim ByteArray() as Byte ' midlertidigt array til vores bytes
dim Antal as Integer ' antal elementer i array'et
dim i as integer ' tæller

V = Split(MyString, ",") ' splitter op med komma som separator
Antal = Ubound(V) ' antal elementer (minus 1)
Redim ByteArray(Antal) ' størrelse

' Vi konverterer lige til bytes
For i = 0 to Antal
   ' Jeg kan ikke huske om konverteringsfunktionen
   ' til at konvertere en værdi til en byte hedder CByte,
   ' ellers må du slå op i VB hjælpen
   ByteArray(i) = CByte(V(i))
next

' Værdien returneres
ReturnByteArray = ByteArray

end function


Ovenstående er skrevet frit efter hukommelsen. Hvis der er nogen der
kan skue nogle fejl - så kom endelig med rettelser


Sony (26-06-2001)
Kommentar
Fra : Sony


Dato : 26-06-01 17:43

Brug funktioner join og split så behøver du ikke lave loop's og alt muligt
andet pjat som bliver foreslået.

Sony



"kikki" <kikki.news@kandu.dk> skrev i en meddelelse
news:sYWZ6.2849$lf5.476668@news010.worldonline.dk...
> Jeg har en funktion som skal bruge et array af bytes, byval. Hvordan gør
> jeg dette?
> Og lige en anden ting, hvordan kan jeg konvertere et array af bytes til
> en string, og tilbage igen?
>
> Kikke
>
> --
> Leveret af:
> http://www.kandu.dk/
> "Vejen til en hurtig løsning"
>



Barney Gumble (26-06-2001)
Kommentar
Fra : Barney Gumble


Dato : 26-06-01 18:32

Det lader sig ikke gøre.... men du kan alltid overføre som variant

Option Explicit

Private Sub Form_Load()
Dim arrBytes(1 To 3) As Byte
Dim arrXXX() As Byte

arrBytes(1) = 1
arrBytes(2) = 2
arrBytes(3) = 3


arrXXX = recountArray(arrBytes)

End Sub

Private Function recountArray(ByVal myArray As Variant) As Variant
Dim bytTMP As Byte

bytTMP = myArray(1)
myArray(1) = myArray(3)
myArray(3) = bytTMP

recountArray = myArray

End Function

Konvertering til/fra string sker vha. Join/Split funktioner.

Hope this helps - BG

"kikki" <kikki.news@kandu.dk> skrev i en meddelelse
news:sYWZ6.2849$lf5.476668@news010.worldonline.dk...
> Jeg har en funktion som skal bruge et array af bytes, byval. Hvordan gør
> jeg dette?
> Og lige en anden ting, hvordan kan jeg konvertere et array af bytes til
> en string, og tilbage igen?




Bo Larsson (26-06-2001)
Kommentar
Fra : Bo Larsson


Dato : 26-06-01 20:29

On Tue, 26 Jun 2001 07:37:53 GMT, "kikki" <kikki.news@kandu.dk> wrote:

>Og lige en anden ting, hvordan kan jeg konvertere et array af bytes til
>en string, og tilbage igen?
>

Fra array til string:

   myString = StrConv(myArray, vbUniCode)

og fra string til array:

   Private Declare Sub CopyMemoryStr Lib "kernel32" _
   Alias "RtlMoveMemory" (Destination As Any, _
   ByVal Source As String, ByVal Length As Long)

   
   Function String2Arr(ByVal myString As String) As Byte()
      Dim nLen As Integer
      nLen = Len(myString)
      ReDim String2Arr(nLen - 1)
      CopyMemoryStr String2Arr(0), myString, nLen
   End Function

Standard disclaimer:
Ovenstående er skrevet på en maskine uden adgang til VB, så det er
ikke aftestet.


Søg
Reklame
Statistik
Spørgsmål : 177558
Tips : 31968
Nyheder : 719565
Indlæg : 6408929
Brugere : 218888

Månedens bedste
Årets bedste
Sidste års bedste