---
title: "Tilldela namn på varje värde i array"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/128653-tilldela-namn-på-varje-värde-i-array/page2"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "bigsky"
published: "2005-05-21T13:58:15.000Z"
updated: "2005-05-27T23:07:18.000Z"
replies: 27
views: 1133
page: 2
pages: 2
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/128653-tilldela-namn-på-varje-värde-i-array"
---
# Tilldela namn på varje värde i array
_Sida 2 av 2._
## #21 — bigsky, 2005-05-24T10:44Z
Kolla ovan så ser du.
Permalänk: https://www.webforum.nu/p/1616155
## #22 — @nders, 2005-05-24T10:51Z
Vad har hänt med strängen då? Det ser inte ut som att den innehåller en {}-lista med bilder som den gjorde tidigare i tråden?
Om inte det finns med i strängen kan du heller inte splitta på det.
Annars har du missat lite i koden:
```
For i = 0 To UBound(arr)
arr2 = Split(Replace(Split(arr(i), "{")(0), vbCrlf, ""), "|")
[b]iTemp = CLng(arr2(0))[/b]
If iTemp =< 99 Then
strFolder = 0
ElseIf iTemp =< 199 Then
strFolder = 100
ElseIf iTemp =< 299 Then
strFolder = 200
[b]End if[/b]
Next
```
edit: om du ska jämföra med tal måste du se till att du jämför ett tal med ett tal, därav Clng-konverteringen.
Jag ska se om jag har möjlighet att testa koden senare.
Permalänk: https://www.webforum.nu/p/1616158
## #23 — bigsky, 2005-05-27T18:04Z
Alltså, såhär ser hela koden ut.
```
<% strBaseUrl = "http://www.template-help.com"
strUrl = strBaseUrl & "/webapi/templates_screenshots4.php?category=10&linebreak=
&delim=|&sort_by=date&order=desc"
Set objHTTP = Server.CreateObject("Microsoft.XMLHTTP")
objHTTP.Open "GET", strUrl, False
objHTTP.SetRequestHeader "Content-type","text/html"
objHTTP.Send
strHTML = objHTTP.ResponseText
Set objHTTP = Nothing
arr = Split(strHTML, "
")
iLoop = 0
For i = 0 To UBound(arr)
arr2 = Split(Replace(Split(arr(i), "{")(0), vbCrlf, ""), "|")
iTemp = CLng(iTemp)
If iTemp =< 99 Then
strFolder = 0
ElseIf iTemp =< 199 Then
strFolder = 100
ElseIf iTemp =< 299 Then
strFolder = 200
End If %>
 %>-m.jpg) |
<% iLoop = iLoop + 1
If iLoop Mod 2 = 0 Then Response.Write ""
Next %>
```
Och inkommande strängar ser ut såhär:
```
127 17 287 2002-07-04 5 0 0 0 0 0 0 0 1 0 0
{100/127-b.jpg
100/127-h.jpg
100/127-m.jpg
100/127-rs.jpg}
```
Permalänk: https://www.webforum.nu/p/1620869
## #24 — @nders, 2005-05-27T22:45Z
Och var är pipe-tecknen????
Du förstör min hjärna...
Permalänk: https://www.webforum.nu/p/1620960
## #25 — bigsky, 2005-05-27T22:53Z
Jag vet och jag ber om ursäkt för det...
Pipe-tecknen kan man använda som avdelare i scriptet som template monster genererar strängarna ifrån. Alltså att strängen levereras som:
```
127|17|287|2002-07-04|5|0|0|0|0|0|0|0|1|0|0
{100/127-b.jpg
100/127-h.jpg
100/127-m.jpg
100/127-rs.jpg}
```
Jag gissar att man kan välja att få strängen levererad så för att lättare kunna behandla och bearbeta den.
Permalänk: https://www.webforum.nu/p/1620961
## #26 — @nders, 2005-05-27T22:55Z
Eftersom jag blev tvungen att testa koden nu så verkar det som att det inte alltid ingår ett {-block i den hämtade HTML-koden. Detta innebär att du får lägga en if-sats för att kontrollera detta.
```
<%
strBaseUrl = "http://www.template-help.com"
strUrl = strBaseUrl & "/webapi/templates_screenshots4.php?category=10&linebreak=
&delim=|&sort_by=date&order=desc"
Set objHTTP = Server.CreateObject("Microsoft.XMLHTTP")
objHTTP.Open "GET", strUrl, False
objHTTP.SetRequestHeader "Content-type","text/html"
objHTTP.Send
strHTML = objHTTP.ResponseText
Set objHTTP = Nothing
arr = Split(strHTML, "
")
iLoop = 0
For i = 0 To UBound(arr)
if instr(arr(i), "{") > 0 then
arr2 = Split(Replace(Split(arr(i), "{")(0), vbCrlf, ""), "|")
iTemp = CLng(iTemp)
If iTemp =< 99 Then
strFolder = 0
ElseIf iTemp =< 199 Then
strFolder = 100
ElseIf iTemp =< 299 Then
strFolder = 200
End If %>
|
<%
iLoop = iLoop + 1
If iLoop Mod 2 = 0 Then Response.Write ""
end if
Next
%>
```
Permalänk: https://www.webforum.nu/p/1620962
## #27 — bigsky, 2005-05-27T23:05Z
Tusen tack @nders! Nu fungerar det utmärkt. Du har verkligen offrat dig för att lösa detta.
Permalänk: https://www.webforum.nu/p/1620965
## #28 — @nders, 2005-05-27T23:07Z
Vasse! :)
Fast hos mig lyckades jag bara se en av bilderna, men det gör inte så mycket. ;)
Mvh
Permalänk: https://www.webforum.nu/p/1620966
---
Tråden på webben: https://www.webforum.nu/amne/asp/128653-tilldela-namn-på-varje-värde-i-array/page2
Föregående sida: https://www.webforum.nu/amne/asp/128653-tilldela-namn-på-varje-värde-i-array.md