webForumDet fria alternativet

Städer...

ASPur ASP

29 svar · 492 visningar · startad av erik_nordell · sida 2 av 2

Frågan, av erik_nordell

Nån som vet vart jag kan få tag på alla städer (I sveriges)... För det är lite jobbigt å skriva av alla från Atlasen :( \------------------ Erki Nörd! <http://www.Tapiren.net> \- Din COMMUNITY PÅ intErnET. Verktygsladan.com - för dig som vill ha gratis forum, gästbok mm utan reklam!

Läs frågan i sin helhet →
Medlem sedan juni 200032 967 inlägg
#21

erik_nordell:

vad härder om du gör så här:

linje = Ucase(left(T.ReadLine,1)) & _
Lcase(mid(t.readline,2,len(t.readline-1)))

tror LarsG gjorde en pyttemiss...

------------------
<A HREF="http://cartman.nu" TARGET=_blank>
all your base are belong to us!</A>

Medlem sedan dec. 200012 464 inlägg
#22

Nja, jag tänkte att allt var i lowercase från början.
Ser nu att jag tänkte fel när jag läser lite noga.

------------------
essentitia preter non sans multiplicandum

Medlem sedan juni 200032 967 inlägg
#23

jo, men det var ju apperkejs!

flaw on LarsG! :e

------------------
<A HREF="http://cartman.nu" TARGET=_blank>
all your base are belong to us!</A>

Medlem sedan aug. 2000431 inlägg
#24

Får fel ändå :(

Feltyp:
Körningsfel i Microsoft VBScript (0x800A000D)
Inkompatibla typer: '[string: "ABBEKÅS"]'
/tapiren4.0/orter.asp, line 11

Linje 11 är alltså den raden nu hjälper mig med...

Medlem sedan aug. 2000431 inlägg
#25

Jag lyckades lösa det själv :)

linje1 = T.ReadLine
linje = Ucase(left(linje1,1)) & Lcase(mid(linje1,2))

------------------
Erki Nörd!

http://www.Tapiren.net - Din COMMUNITY PÅ intErnET.

Verktygsladan.com - för dig som vill ha gratis forum, gästbok mm utan reklam!

Medlem sedan dec. 200012 464 inlägg
#26

Kan du visa hur hela koden ser ut nu? I alla fall de 20 första raderna.

------------------
essentitia preter non sans multiplicandum

Medlem sedan jan. 20012 204 inlägg
#27

Det skulle vara spännade att se koden :e

------------------
"Man kommer fortare fram till målet om man kryper åt rätt håll än springer åt fel håll"

Medlem sedan aug. 2000431 inlägg
#28

Visst vill ni se koden så...

<select name="stad">
<option>>> Vart bor du? <<</option>
<%
Dim F, T
Set F = CreateObject("Scripting.FileSystemObject")
Set T = F.OpenTextFile(Server.mappath("orter.txt"))
Do Until T.AtEndOfLine
i = i + 1
linje1 = T.ReadLine
linje = Ucase(left(linje1,1)) & Lcase(mid(linje1,2))

Response.write "<option value="""&linje&""">"&linje&"</option>"&vbcrlf
Loop %>
<% T.Close %>
</select>

------------------
Erki Nörd!

http://www.Tapiren.net - Din COMMUNITY PÅ intErnET.

Verktygsladan.com - för dig som vill ha gratis forum, gästbok mm utan reklam!

Medlem sedan mars 20002 836 inlägg
#29

... lite OT men hoppas att ni har lite överseende med det.

Denna fil listar alla Riktnummer + Ort.

Hoppas att någon får glädje av den =P

cya,
PatrikB

------------------
Ingenting är omöjligt.
Det omöjliga tar bara något längre tid att genomföra.

Medlem sedan aug. 2000864 inlägg
#30

webform är bäst
:e

------------------
Mvh Martin Persson
www.Costodia.com

[Redigerat av costodia den 27 apr 2001]

135 ms totalt · 3 externa anrop · v20260731065814-full.4bcf49fe
0 ms — hämta forumlista (cache)
0 ms — hämta statistik (cache)
133 ms — hämta tråd, inlägg och bilagor (db)