Få ut variabel a och b ur funktion

5 svar · 269 visningar · startad av Addeladde 4 okt. 2002

AddeladdeMedlem sedan jan. 20013 406 inlägg

Frågan4 okt. 2002 22:10#1

Hur får jag ut variablerna a och b ur den här funktionen:

function test(flnm)

IF right(flnm, 3)="gIF" then
	Width = lngConvert(GetBytes(flnm, 7, 2))
	Height = lngConvert(GetBytes(flnm, 9, 2))
	Depth = 2 ^ ((asc(GetBytes(flnm, 11, 1)) and 7) + 1)

else

strBuff = GetBytes(flnm, 0, -1) 
lngSize = len(strBuff)
flgFound = 0

strTarget = chr(255) & chr(216) & chr(255)
flgFound = instr(strBuff, strTarget)

strImageType = "JPG"
lngPos = flgFound + 2
ExitLoop = false

do while ExitLoop = False and lngPos < lngSize

do while asc(mid(strBuff, lngPos, 1)) = 255 and lngPos < lngSize
lngPos = lngPos + 1
loop

IF asc(mid(strBuff, lngPos, 1)) < 192 or asc(mid(strBuff, lngPos, 1)) > 195 then
lngMarkerSize = lngConvert2(mid(strBuff, lngPos + 1, 2))
lngPos = lngPos + lngMarkerSize + 1
else
ExitLoop = True
end IF

loop

IF ExitLoop = "False" then
Width = -1
Height = -1
Depth = -1
else
Height = lngConvert2(mid(strBuff, lngPos + 4, 2))
Width = lngConvert2(mid(strBuff, lngPos + 6, 2))
Depth = 2 ^ (asc(mid(strBuff, lngPos + 8, 1)) * 8)
end IF

end if

a = width
b = height

end function

LarsGMedlem sedan dec. 200012 464 inlägg

4 okt. 2002 22:24#2

Låt funktionen returnera en array

test = array(width,height)
end function

AddeladdeMedlem sedan jan. 20013 406 inlägg

4 okt. 2002 22:34#3

Hur skriver jag ut width och height på sidan sen

AddeladdeMedlem sedan jan. 20013 406 inlägg

4 okt. 2002 23:20#4

Löste det! Tack för hjälpen LarsG

AddeladdeMedlem sedan jan. 20013 406 inlägg

25 nov. 2003 18:08#5

Nu skulle jag vilja komma på hur jag gjorde detta någon som kan hjälpa mig?

Function test(str)

  test = array(str, 4)
End Function

'Men hur hämtar jag sedan värdet ur mina funktioner?
resultat = test("teststräng")

'Sedan vill jag skriva ut resultatet ungefär så här:
response.write resultat(0)
response.write resultat(1)

@ndersMedlem sedan juni 200032 967 inlägg

25 nov. 2003 18:12#6

Vad menar du?

Jag hade löst problemet på ett annat sätt, genom att ha en ByRef-parameter (eller två) i interfacet:

Function foo(ByVal strValue, ByRef var1, ByRef var2)
     var1 = strValue & " är en bäver."
     var2 = strValue & " är inte alls en bäver, utan en iller."
End function

dim str1, str2

call foo("emission", str1, str2)
Response.write str1 & "<br>" & str2

Mvh