---
title: "ta bort dubletter i textfil"
type: "forum-thread"
url: "https://www.webforum.nu/amne/dotnet/114699-ta-bort-dubletter-i-textfil"
topic: ".NET"
topic_url: "https://www.webforum.nu/amne/dotnet"
author: "McD"
published: "2004-10-29T21:42:26.000Z"
updated: "2004-11-01T07:00:25.000Z"
replies: 3
views: 483
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/dotnet/114699-ta-bort-dubletter-i-textfil"
---

# ta bort dubletter i textfil

## #1 — McD, 2004-10-29T21:42Z

Tjena boys...

har ett litet problem... skulle behöva lite hjälp med att få bort dubletter i en textfil med vb scirpt (tänkte köra i schemaläggaren i win)

Varje nummer står på en rad

namn_nummer.txt som filen heter har o namn nummer i sig enligt nedan...

**kalle45456**
annika43623
gunnar45346
eva23546
**kalle45456**
sara2343457
erik3456576
maja34523
**kalle45456**
svante23454365
palle43534
ikas5345

Vill ju bara ha en kalle  x(

e inge bra på sånt här...  :P 

namn_nummer.txt är ca 70 kb stor om det spelar någon roll!

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

## #2 — Sebbe, 2004-10-31T13:01Z

Skapa helst en kopia av textfilen innan du kör det här, bara "i fall att". ;)

```
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTS = objFSO.OpenTextFile("namn_nummer.txt")
strNN = ";"

Do Until objTS.AtEndOfStream
  strLine = objTS.ReadLine

  If InStr(strNN, ";" & strLine & ";") = 0 Then strNN = strNN & strLine & ";"
Loop

objTS.Close : Set objTS = Nothing

Set objTS = objFSO.OpenTextFile("namn_nummer.txt", 2)
objTS.Write(Replace(Mid(strNN, 2, Len(strNN) - 2), ";", vbCrLf)) ' Skriver över filen
objTS.Close : Set objTS = Nothing
Set objFSO = Nothing
```

**/red** Missade att det var VBScript det rörde sig om, eftersom det här forumet bara gäller ASP nu.

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

## #3 — McD, 2004-10-31T20:09Z

oj sorry fel forum!

Danke sebbe funka klockrent!

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

## #4 — OveRRidE, 2004-11-01T07:00Z

Flyttas från ASP.

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

---

Tråden på webben: https://www.webforum.nu/amne/dotnet/114699-ta-bort-dubletter-i-textfil