Strings og værdier

afvikle even :p

Muligvis således:

Execute arrTest2(0) & "=" & arrTest(0)

Virker desværre ikke :(

Der er 2 andre muligheder som måske fungerer bedre

1. ExecuteGlobal arrTest2(0) & "=" & arrTest(0)

2. Eval arrTest2(0) & "=" & arrTest(0)

Hvad sker der i øvrigt efter du har udført koden i det første forslag?

Fejl Besked fra Server:
Der opstod en Microsoft VBScript-kompileringsfejl (0x800A03EA)

Der er en syntaksfejl



Det er den fejl jeg får ved alle tre muligheder

Hvis jeg udfører flg. kode:

      Test = "01,02,03,04,05,06"
      Test2 = "Jan,Feb,Mar,Apr,Maj,Jun"
      arrTest = Split(Test,",")
      arrTest2 = Split(Test2,",")
      ExecuteGlobal arrTest2(0) & "=" & arrTest(0)
      response.Write "Jan indeholder: " & Jan

Så skriver den:

      Jan indeholder: 1

Hvor er det din kode adskiller sig fra min?

Hvis du gerne vil have værdierne i Test bliver fortolket som strenge, skal du skrive således:

      Test = """01"",""02"",""03"",""04"",""05"",""06"""

Ok.
Det jeg har er en fil med nogle oplysninger i ang. Farver til mine tabeller.

F.eks.

strFarve1,#FFFFFF
strFarve2,#FFFFFF
strfarve3,#FFFFFF

Og så har en includet fil som henter de oplysninger fra filen.

Og laver en array.
Så har jeg sat den til at slippe og lave en loop som så skal lave det hele om til strings.

F.eks.

strFarve1 = "#FFFFFF"
strFarve2 = "#FFFFFF"
strFarve3 = "#FFFFFF"

Men det skulle gerne laves

arrTest(0) = arrTest(1)
Så man sliper afsted med kun at skrive det en gang, og lade serveren lave resten af arbejdet uanset hvor mange string oplysninger jeg har i filen

På den måde kan man så lave f.eks. color='" & strFarve1 & "', og kun have brug for at rette farver i EN fil, frem for alle filer i websiden

Do While not f.AtEndOfStream

  arrM = Split(f.ReadLine,",")

  ExecuteGlobal arrM(0) & "=" & arrM(1)  <<<<----- Linie 27

Loop
f.Close

___________________________________________________________________________________

Fejl besked:

Der opstod en Microsoft VBScript-kompileringsfejl (0x800A03EA)

Der er en syntaksfejl

Fejl linie 27

Prøv evt. at skrive de enkelte linier ud med response.write i stedet for at udføre dem, så du kan se om det giver mening rent VBScript-syntaktisk. Så kan vi tage den derfra...

Response.Write arrM(0)
Response.Write arrM(1)

Giver

sysMenuBgColor
#A9B9C6

I den første linie

...og det er jo ikke en valid tildeling i VBScript.

Det skulle vel have været:

sysMenuBgColor
"#A9B9C6"

hvilket betyder at du skal ændre løkken til

Do While not f.AtEndOfStream

  arrM = Split(f.ReadLine,",")

  ExecuteGlobal arrM(0) & "= """ & arrM(1) & """"

Loop
f.Close

Damn. Du er bare dagens helt :D

Før var jeg nød til at skrive det i hånd.

strFarve = arrM(1)
osv...

Og så ryger pointen altså.
Jeg takker :)

Ja, der er jo ikke nogen grund til at lave alt for meget "slavearbejde" hvis man kan undgå det - så heller bruge tiden på at finde en måde at gøre tingene lettere (det er mere interessant) - velbekomme :)

Det er nemlig rigtigt.
Slavearbejde kan serveren få lov at lave

Takker igen :)

Tak for point :)