---
title: "Radera specifik rad i textfil"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/80358-radera-specifik-rad-i-textfil"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "m_soderlund"
published: "2003-06-23T12:29:26.000Z"
updated: "2003-06-24T06:51:28.000Z"
replies: 3
views: 258
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/80358-radera-specifik-rad-i-textfil"
---

# Radera specifik rad i textfil

## #1 — m_soderlund, 2003-06-23T12:29Z

Jag undrar om det går (med hjälp av FileSystemObject och TextStreamObject) att radera en specifik rad i en textfil?
Dessa koder fungerar inte:

```
<%
Dim Cn, Rs

Set Cn = Server.Createobject("ADODB.Connection")
Cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\siter\tf\;extended properties=""text;hdr=yes;fmt=delimited;"";"
'Set Rs = Server.Createobject("ADODB.Recordset")

Set Rs = Cn.Execute("SELECT * FROM cd_orders.txt")

'Rs.Open "SELECT * FROM filen.txt" ,Cn

Do While Not Rs.EOF

Response.Write Rs.Fields(0) & "<br />"

If Len(Instr(Rs.Fields(0),"martin"))>0 Then
[red][b]	Cn.Execute("DELETE * FROM cd_orders.txt")[/b][/red]
End If

Rs.Movenext
Loop

Rs.Close : Set Rs = Nothing
Cn.Close : Set Cn = Nothing

%>
```

Ja ni, den rödmarkerade feta texten fungerar inte bra. Och en WHERE kan man ju inte ha där? En textfil har ju som kanske bekant inga fält.. :( Och SQL-satsen som jag satt ut där på prov fungerar ej heller..

```
txt_path = "c:/siter/admin/fil.txt"

Set fso = Server.Createobject("Scripting.FileSystemObject")
Set tso = fso.Opentextfile(txt_path,1)

arrTxt = Split(tso.ReadAll,VbCrLf)

For i = 0 To Ubound(arrTxt)

txt_line = arrTxt(i)

If Instr(txt_line,phonenr)>0 Then

Response.Write "raden hittad!"

End If

Next

tso.close : set tso = nothing
fso.close
```

..och koden med FSO fungerar ju inte den heller.

**om någon har nån idé eller kanske rentav vet lösningen så är jag mycket tacksam!**

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

## #2 — LarsG, 2003-06-23T12:47Z

Du får skapa en kopia där du skriver allt utom den rad du vill ta bort.

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

## #3 — m_soderlund, 2003-06-23T12:55Z

> **LarsG skrev:**
>
> Du får skapa en kopia där du skriver allt utom den rad du vill ta bort.

Preeecis det jag håller på med nu. Tack ändå LarsG. :bire

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

## #4 — m_soderlund, 2003-06-24T06:51Z

..och här kommer då lite exempelkod på hur man kan lösa detta:

```
[red]<%
Dim txt_path, fso, tso,i, arrTxt, txt_line, rep_text

txt_path = "c:/textfil.txt"
rep_text = "Texten där raden ska raderas"

Set fso = Server.Createobject("Scripting.FileSystemObject")
Set tso = fso.Opentextfile(txt_path,1)

arrTxt = Split(tso.ReadAll,VbCrLf)

For i = 0 To Ubound(arrTxt)
    If Instr(arrTxt(i),rep_text)>0 Then
       arrtxt(i) = ""
    End If
    
        txt_line = txt_line & arrTxt(i) & VbCrLf
End If

Next

tso.close : set tso = nothing
fso.close

Set fso = Server.CreateObject("Scripting.FileSystemObject")
		Set tso = fso.OpenTextFile(txt_path,2,True)
		tso.Writeline(txt_line)
		tso.Close : set tso = Nothing
		Set fso = Nothing
%>[/red]
```

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/80358-radera-specifik-rad-i-textfil