---
title: "Updatera en text fil"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/104864-updatera-en-text-fil"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "voigtann1"
published: "2004-06-03T00:07:07.000Z"
updated: "2004-06-03T13:18:29.000Z"
replies: 5
views: 246
page: 1
pages: 1
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/104864-updatera-en-text-fil"
---

# Updatera en text fil

## #1 — voigtann1, 2004-06-03T00:07Z

Jag har en ASP fil med värden såsom:

```
[settings]
language = "Swedish"
bgcolor    = "#FFFFFF"
....
```

att få ut informationen är inte svårt... hur gör jag om jag vill "uppdatera" värderna?
vi säger att alla \<input\> har samma namn som strängarna... ex:

```
<input type='text' name='[b]language[/b]' value='<%=[b]language[/b]%>'>
```

filen med värderna heter config.asp

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

## #2 — voigtann1, 2004-06-03T12:51Z

Måste man köra en "readline" sak eller addline för att detta ska fungera i helhet?

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

## #3 — Jesper T, 2004-06-03T12:54Z

Det är klart att det går, men att lita på att det läses och skrives på rätt rad skulle inte jag göra... :)

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

## #4 — voigtann1, 2004-06-03T13:03Z

Hur tycker du att jag ska göra? Köra allt i databasen?

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

## #5 — @nders, 2004-06-03T13:10Z

Antingen i db eller i en XML-fil.

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

## #6 — Sebbe, 2004-06-03T13:18Z

Nu såg jag att du redan har fått tips på smartare lösning, men det är väl onödigt att bara "slänga" koden när man väl har skrivit den? ;)

```
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objTS = objFSO.OpenTextFile(Server.MapPath("config.asp"))
arrText = Split(objTS.ReadAll, vbCrLf)
objTS.Close : Set objTS = Nothing

For i = 0 To UBound(arrText)
  If arrText(i) = "[settings]" Then intStart = i + 1

  If Left(arrText(i), 1) = "[" AND intStart < (i + 1) Then
    intStop = i - 1
    Exit For
  End If
Next

If intStop <= 0 Then intStop = UBound(arrText)

For i = intStart To intStop
  arrTemp = Split(arrText(i), "=")
  strAttr = Trim(arrTemp(0))
  strVal = Trim(arrTemp(1))

  If Trim(Request.Form(strAttr)) <> "" Then strVal = """" & Trim(Request.Form(strAttr)) & """"

  strSettings = strSettings & strAttr & " = " & strVal & vbCrLf
Next

For i = 0 To intStart - 1
  strSettings = arrText(i) & vbCrLf & strSettings
Next

If intStop < UBound(arrText) Then
  For i = intStop + 1 To UBound(arrText)
    strSettings = strSettings & arrText(i) & vbCrLf
  Next
End If

Set objTS = objFSO.OpenTextFile(Server.MapPath("config.asp"), 2)
objTS.Write(strSettings)
objTS.Close : Set objTS = Nothing
Set objFSO = Nothing
```

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/104864-updatera-en-text-fil