Admini Postad 28 mars, 2003 Share Postad 28 mars, 2003 Hej Är det nån som vet vad "pack" gör för nåt: for i = 0 To i < strlen(str) c = substr(str, i, 1) out = out & pack("C*", 0xDB, 0xB0 + c) i = i +1 Next Länk till kommentar Dela på andra webbplatser More sharing options...
jockesoft Postad 28 mars, 2003 Share Postad 28 mars, 2003 Hmm, finns inte ens med i MSDN, är det inte en egen definierad funktion då? /Jocke "Shit! What? Rollers. No? Yeah. Shit!" - Blues Brothers Länk till kommentar Dela på andra webbplatser More sharing options...
Coleburn Postad 28 mars, 2003 Share Postad 28 mars, 2003 I Perl så utför 'pack' en konvertering till binärformat. I ditt fall skulle det innebära att resultatet blev en binärstruktur konverterad som 'unsigned char' (='C'). Som sagt, detta gäller perl, och kan i ditt fall vara något helt annat. ==Coleburn== -------------------- "It takes a lot of knowledge to really mess something up!" Länk till kommentar Dela på andra webbplatser More sharing options...
Admini Postad 28 mars, 2003 Trådskapare Share Postad 28 mars, 2003 Ok Nu har jag fått hjälp med den C-versionen av programmet och då slippar man "Pack". Tack för all hjälp Länk till kommentar Dela på andra webbplatser More sharing options...
RaPiDfIrE Postad 28 mars, 2003 Share Postad 28 mars, 2003 Nu har jag fått hjälp med den C-versionen av programmet Fungerar ? Isåfall kan jag lägga mitt engagemang på hyllan och fortsätta att strukturera mitt hemmanätverk. Jag kom bara halvvägs igår (blev tvungen att umgås ... /TN -+- [] -+- -RapidFire Länk till kommentar Dela på andra webbplatser More sharing options...
Don Tomas Postad 28 mars, 2003 Share Postad 28 mars, 2003 Nu har jag fått hjälp med den C-versionen av programmet Fungerar ? Isåfall kan jag lägga mitt engagemang på hyllan och fortsätta att strukturera mitt hemmanätverk. Jag kom bara halvvägs igår (blev tvungen att umgås ... /TN -+- [] -+- Länk till kommentar Dela på andra webbplatser More sharing options...
Admini Postad 28 mars, 2003 Trådskapare Share Postad 28 mars, 2003 Nej Det funkar inte riktigt ännu, Men jag håller kontakt med killen som gjorde C versionen. vad är output för 9/4 i C? Länk till kommentar Dela på andra webbplatser More sharing options...
Don Tomas Postad 28 mars, 2003 Share Postad 28 mars, 2003 vad är output för 9/4 i C? Heltalsdelen, om man skriver ut det som heltal liksom. Alltså 2 /TN -+- [] -+- Länk till kommentar Dela på andra webbplatser More sharing options...
Admini Postad 28 mars, 2003 Trådskapare Share Postad 28 mars, 2003 Hur gör vi det i ASP? Alltså hur tar jag ut heltalsdelen? Länk till kommentar Dela på andra webbplatser More sharing options...
Don Tomas Postad 28 mars, 2003 Share Postad 28 mars, 2003 Man lutar på delamedstrecket åt andra hållet. http://www.devguru.com/Technologies/vbscript/quickref/backslash.html /TN -+- [] -+- Länk till kommentar Dela på andra webbplatser More sharing options...
Admini Postad 28 mars, 2003 Trådskapare Share Postad 28 mars, 2003 Procent "%" i C heter Mod i ASP, väl? eller gör den det? Länk till kommentar Dela på andra webbplatser More sharing options...
Don Tomas Postad 28 mars, 2003 Share Postad 28 mars, 2003 Procent "%" i C heter Mod i ASP, väl? eller gör den det? Yepp http://www.devguru.com/Technologies/vbscript/quickref/mod.html Förresten den underliga pack-funktionen kan du läsa om här http://www.php.net/manual/en/function.pack.php /TN -+- [] -+- Länk till kommentar Dela på andra webbplatser More sharing options...
Admini Postad 28 mars, 2003 Trådskapare Share Postad 28 mars, 2003 Hej Nu kan han inte hjälpa mig mer, men det kanske du kan! Här är den kod som behöver omvanlas från C till ASP: gy = g_y-1600; gm = g_m-1; gd = g_d-1; g_day_no = 365*gy+(gy+3)/4-(gy+99)/100+(gy+399)/400; for (i = 0; i < gm; ++i) g_day_no += g_days_in_month; if (gm>1 && ((gy%4==0 && gy%100!=0) || (gy%400==0))) /* leap and after Feb */ ++g_day_no; g_day_no += gd; j_day_no = g_day_no-79; j_np = j_day_no / 12053; j_day_no %= 12053; j_y = 979+33*j_np+4*(j_day_no/1461); j_day_no %= 1461; if (j_day_no >= 366) { j_y += (j_day_no-1)/365; j_day_no = (j_day_no-1)%365; } for (i = 0; i < 11 && j_day_no >= j_days_in_month; ++i) { j_day_no -= j_days_in_month; } j_m = i+1; j_d = j_day_no+1; Och här är den omvandlig jag gjort: g_days_in_month = array(31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31) j_days_in_month = array(31, 31, 31, 31, 31, 31, 30, 30, 30, 30, 30, 29) j_month_name = array("", "Farvardin", "Ordibehesht", "Khordad", "Tir", "Mordad", "Shahrivar", "Mehr", "Aban", "Azar", "Dey", "Bahman", "Esfand") g_y=2003 g_m=03 g_d=28 gy = g_y-1600 gm = g_m-1 gd = g_d-1 g_day_no = 365*gy+(gy+3)\4-(gy+99)\100+(gy+399)\400 For i = 0 To i < gm g_day_no = g_day_no + g_days_in_month(i) i=i+1 Next if (gm>1 And ((gy Mod 4=0 And gy Mod 100<>0) Or (gy Mod 400=0))) Then ' leap and after Feb g_day_no = g_day_no + 1 End If g_day_no = g_day_no + gd j_day_no = g_day_no-79 j_np = j_day_no \ 12053 j_day_no = j_day_no Mod 12053 j_y = 979+33*j_np+4*(j_day_no\1461) j_day_no = j_day_no + 1461 if (j_day_no >= 366) Then j_y = j_y + (j_day_no-1)\365 j_day_no = (j_day_no-1) Mod 365 End If for i = 0 To i < 11 And j_day_no >= j_days_in_month(i) j_day_no = j_day_no + j_days_in_month(i) i= i+1 Next j_m = i+1 j_d = j_day_no+1 Response.Write "j_y="&j_y&"<br>" Response.Write "j_m="&j_m&"<br>" Response.Write "j_d="&j_d&"<br><br>" Länk till kommentar Dela på andra webbplatser More sharing options...
Don Tomas Postad 28 mars, 2003 Share Postad 28 mars, 2003 Byter tråd här... //eforum.idg.se/viewmsg.asp?EntriesId=423199#424168 /TN Länk till kommentar Dela på andra webbplatser More sharing options...
Rekommendera Poster
Arkiverat
Det här ämnet är nu arkiverat och är stängt för ytterligare svar.