Just nu i M3-nätverket
Jump to content

Pack


Admini

Recommended Posts

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

 

Link to comment
Share on other sites

Hmm, finns inte ens med i MSDN, är det inte en egen definierad funktion då?

 

/Jocke

 

"Shit! What? Rollers. No? Yeah. Shit!" - Blues Brothers

 

 

Link to comment
Share on other sites

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!"

 

Link to comment
Share on other sites

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

 

Link to comment
Share on other sites

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

Link to comment
Share on other sites

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

-+- [] -+-

 

Link to comment
Share on other sites

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?

 

Link to comment
Share on other sites

vad är output för 9/4 i C?

 

Heltalsdelen, om man skriver ut det som heltal liksom.

Alltså 2

 

/TN

-+- [] -+-

 

Link to comment
Share on other sites

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>"

 

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.



×
×
  • Create New...