---
title: "FSO"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/59820-fso"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Asa"
published: "2002-11-20T23:40:16.000Z"
updated: "2002-11-21T11:09:28.000Z"
replies: 23
views: 457
page: 1
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/59820-fso"
---

# FSO

_Sida 1 av 2._

## #1 — Asa, 2002-11-20T23:40Z

Jag har en fil mån.txt där jag vill spara månadsnamn och dess nummer men hur ska jag skriva i filen! Ska sedan skriva ut allt i en \<select\> med månadens nummer som value. Men hur gör jag?!?!

```
<select name="birth_month">
     <option value="nada">-- Mån --</option>
     <option value="01">Januari</option>
     <option value="02">Februari 
     <option value="03">Mars 
     <option value="04">April 
     <option value="05">Maj 
     <option value="06">Juni 
     <option value="07">Juli 
     <option value="08">Augusti 
     <option value="09">September 
     <option value="10">Oktober 
     <option value="11">November 
     <option value="12">December
</select>
```

Permalänk: https://www.webforum.nu/p/59820

## #2 — Thorsander, 2002-11-21T00:05Z

Kan du inte köra komma-separerat!?
Eller byta rad efter varje kombination:
01 Januari
02 Februari
etc...

Permalänk: https://www.webforum.nu/p/861521

## #3 — Asa, 2002-11-21T00:07Z

Jag gjorde så här: 

```
<%Set fso = CreateObject("Scripting.FileSystemObject")
set fil = fso.OpenTextFile(Server.Mappath("inc/mån.txt"), 1 )
arrFsoLines = Split(fil.ReadAll, vbcrlf)%>
      <select name="birth_month">
             <option value="nada">-- Mån --</option>
             <%For i = 0 To ubound(arrFsoLines)
             arrText =  Split(arrFsoLines(i),"|")%>
               <option value="<%=ArrText(0)%>"><%=ArrText(1)%> 
             <%Next %>
       </select>
<%fil.Close%>
```

Sparade alla månader och nummer så här:

01\|Januari
02\|Februari
03\|Mars
04\|April
05\|Maj
06\|Juni
07\|Juli
08\|Augusti
09\|September
10\|Oktober
11\|November
12\|December

Permalänk: https://www.webforum.nu/p/861522

## #4 — OveRRidE, 2002-11-21T09:07Z

En fråga; varför vill du lagra detta i ett datalager så opraktiskt som en textfil?

Permalänk: https://www.webforum.nu/p/861597

## #5 — Asa, 2002-11-21T09:23Z

Tar mindre plats än en databas och jag vill inte ha det direkt i koden!

Permalänk: https://www.webforum.nu/p/861614

## #6 — Macce, 2002-11-21T09:26Z

Gör en funktion eller sub istället :)

Göm sedan funktionen i en include, så slipper du se den så ofta i koden ;)

```
<%=SelectBox(birth_month)%>

<%Function SelectBox(name)
       strHtml = "<select name='" & name & "'>" & Vbcrlf &_
         "<option value='nada'>-- Mån --</option>" & Vbcrlf &_
         "<option value='01'>Januari</option>" & Vbcrlf &_
         "<option value='02'>Februari</option>" & Vbcrlf &_ 
         "<option value='03'>Mars</option>" & Vbcrlf &_ 
         "<option value='04'>April</option>" & Vbcrlf &_ 
         "<option value='05'>Maj</option>" & Vbcrlf &_ 
         "<option value='06'>Juni</option>" & Vbcrlf &_ 
         "<option value='07'>Juli</option>" & Vbcrlf &_ 
         "<option value='08'>Augusti</option>" & Vbcrlf &_ 
         "<option value='09'>September</option>" & Vbcrlf &_ 
         "<option value='10'>Oktober</option>" & Vbcrlf &_ 
         "<option value='11'>November</option>" & Vbcrlf &_ 
         "<option value='12'>December</option>" & Vbcrlf &_
         "</select>" & Vbcrlf 
       SelectBox = strHtml
  End Function %>
```

Permalänk: https://www.webforum.nu/p/861617

## #7 — OveRRidE, 2002-11-21T09:27Z

> **Macce skrev:**
>
> Gör en funktion eller sub istället :)

Varför?

Permalänk: https://www.webforum.nu/p/861619

## #8 — Asa, 2002-11-21T09:29Z

Hur ska ni ha det? Hehe! 
Vad är bäst tycker ni? 
Så lite plats som möjligt men det ska vara enkelt att ändra! Kommer användas på flera ställen så det är skönt å slippa ändra på flera ställen!

Permalänk: https://www.webforum.nu/p/861623

## #9 — Macce, 2002-11-21T09:31Z

Kan användas på fler ställen och får mer överskådlig kod...

Kan sen anpassas enklare om man vill göra förändrdingar
som tex flera språk etc.

Permalänk: https://www.webforum.nu/p/861624

## #10 — Macce, 2002-11-21T09:32Z

Tycker absolut du ska använda min funktion i en include !

Permalänk: https://www.webforum.nu/p/861627

## #11 — Asa, 2002-11-21T09:41Z

Okej! Få se hur jag gör!

Permalänk: https://www.webforum.nu/p/861633

## #12 — OveRRidE, 2002-11-21T09:42Z

Ett litet förslag bara; 

```
<%=SelectBox(birth_month)%>

<%
Function SelectBox(name)
       strHtml = "<select name=""" & name & """>" & Vbcrlf &_
         "<option value=""nada"">-- Mån --</option>" & Vbcrlf &_
         "<option value=""01"">Januari</option>" & Vbcrlf &_
         "<option value=""02"">Februari</option>" & Vbcrlf &_ 
         "<option value=""03"">Mars</option>" & Vbcrlf &_ 
         "<option value=""04"">April</option>" & Vbcrlf &_ 
         "<option value=""05"">Maj</option>" & Vbcrlf &_ 
         "<option value=""06"">Juni</option>" & Vbcrlf &_ 
         "<option value=""07"">Juli</option>" & Vbcrlf &_ 
         "<option value=""08"">Augusti</option>" & Vbcrlf &_ 
         "<option value=""09"">September</option>" & Vbcrlf &_ 
         "<option value=""10"">Oktober</option>" & Vbcrlf &_ 
         "<option value=""11"">November</option>" & Vbcrlf &_ 
         "<option value=""12"">December</option>" & Vbcrlf &_
         "</select>" & Vbcrlf 
       SelectBox = strHtml
  End Function 
%>
```

Permalänk: https://www.webforum.nu/p/861634

## #13 — Asa, 2002-11-21T09:43Z

Så hade ju redan Macce skrivit?!?

Permalänk: https://www.webforum.nu/p/861636

## #14 — OveRRidE, 2002-11-21T09:52Z

Korrekt. Men han använde ' istället för ", vilket inte är korrekt HTML. Använder man dubbla " så blir det rätt. :)

Det är bara ett förslag på ändring, det funkar givetvis kanonbra med Macce:s exempel också! :)

Moraltant, javet. ;)

Permalänk: https://www.webforum.nu/p/861640

## #15 — @nders, 2002-11-21T09:54Z

Visserligen är det faktiskt lika korrekt HTML att använda apostrofer istället för citationstecken, i alla fall enligt w3c, men det är i alla fall mycket vackrare med citationstecken. ;)

Mvh,

Permalänk: https://www.webforum.nu/p/861641

## #16 — Asa, 2002-11-21T09:54Z

Ahh - okej! Tackar båda två! Få se hur jag gör!

Permalänk: https://www.webforum.nu/p/861642

## #17 — Asa, 2002-11-21T09:57Z

Har ett annat problem! Med txt fil å skriv ut:

```
<%Set fso = CreateObject("Scripting.FileSystemObject")
set fil = fso.OpenTextFile(Server.Mappath("inc/civil.txt"), 1 )
arrFsoLines = Split(fil.ReadAll, vbcrlf)%>
  <select name="civil" style="width: 200px;">
    <option value="nada">-- Välj --</option>
    <%For i = 0 To ubound(arrFsoLines)
    arrText =  Split(arrFsoLines(i),"|")%>
      <option value="<%=arrText(0)%>"><%=arrText(1)%>
    <%Next %>
  </select>
<%fil.Close%>
```

Så här ser det ut i txt filen
1\|Kilar stadigt
2\|Singel
3\|Dejtar någon
4\|Förlovad
5\|Gift
6\|Låt mig va
7\|Raggar runt
8\|Sambo
9\|Spanar
10\|Öppen för förslag
11\|Särbo
12\|Öken
13\|Ta mig nu

Får felmess:

Feltyp:
Körningsfel i Microsoft VBScript (0x800A0009)
Felaktigt matrisindex: '\[number: 0\]'
/chippiland/blimedlem.asp, line 202

Denna rad: \<option value="\<%=arrText(0)%\>"\>\<%=arrText(1)%\>

Permalänk: https://www.webforum.nu/p/861643

## #18 — OveRRidE, 2002-11-21T10:00Z

> **@nders skrev:**
>
> Visserligen är det faktiskt lika korrekt HTML att använda apostrofer istället för citationstecken, i alla fall enligt w3c, men det är i alla fall mycket vackrare med citationstecken. ;)
> 
> Mvh,

Är det? :o Jag har fått förklarat motsatsen..

Permalänk: https://www.webforum.nu/p/861644

## #19 — Macce, 2002-11-21T10:35Z

Jag använder båda sätten lika mycket, men man kanske ska
gå över till " helt och hållet, vad säger exempelvis xml om ' istället för " ? nån som vet ?

Permalänk: https://www.webforum.nu/p/861662

## #20 — @nders, 2002-11-21T10:37Z

I XML är det mig veterligen helt okej att använda apostrofer istället för citationstecken. 

Mvh,

Permalänk: https://www.webforum.nu/p/861665

---

Tråden på webben: https://www.webforum.nu/amne/asp/59820-fso  
Nästa sida: https://www.webforum.nu/amne/asp/59820-fso/page2.md