22 svar · 1 462 visningar · startad av Fredriksson · sida 2 av 2
Hej! Skulle behöva tips på ett smidigt sätt att göra om värden i formatet 0,01 till 1/100.
Läs frågan i sin helhet →Min snutt är i enklaste laget, så den klarar långt ifrån alla bråktal, men sålänge det är ett tal som går att fram ett vettigt bråktal från (nämnare < 10000 som jag satt loopen) så skall det funka.
Ge exempel på ett tal som inte funkar eller inte ger det resultat du önskar.
function slutare(n)
slutare = ""
dim i, num
num = n
If Round(num) = num Then
s = num
Else
for i=1 to 10000
If Round(i * num) = i * num Then
s = (i*num) & "/" & i
Exit For
End If
Next
end if
slutare = s
end function
Path = Server.MapPath("foto/" & foto & ".jpg")
Set pinfo = Jpeg.OpenInfo( Path )
iso = pinfo("ISOSpeedRatings")
s = pinfo("ExposureTime")
f = pinfo("FNumber")
mm = pinfo("FocalLength")
w = pinfo("XResolution")
h = pinfo("YResolution")
response write slutare(s)
Koden verkar funka om jag manuellt lägger in t ex 0.002 i funktionen men inte när jag hämtar det direkt från EXIF då det där har formatet 0,002 istället. Hur fixar jag detta?
Det är beroende på land och dess format.
Dessvärre är det inte helt stabilt att pyssla med att ändra locale åt användare etc så det enklaste är att du precis innan utskrift gör en search and replace på kommatecken till punkter.
