eliminare da un elenco i nomi ripetuti

[trippacchiello]

Ho un elenco su un file txt con tutti nomi, tipo na cosa:

pasquale
michele
maria
roberto
anna
ecc

si tratta di una lista lunghissima e vorrei fare in automatico un controllo che elimina la copia di uno di questi nomi.

per esempio se il nome maria si ripete 3-4 volte in tutta la lista, deve cancellare tutti i doppioni e lasciare solo una volta quel nome.

Come posso fare in 5 minuti?

[patel]

Lo apri con excel, fai l'ordinamento, elimini i doppioni, lo risalvi in txt

[nicola75ss]

Oppure vai di powershell.

La scarichi da qui
http://www.microsoft.com/windowsserv.../download.mspx

la installi, la richiami da esegui digitando powershell, raggiungi come faresti dal prompt dei comandi la cartella contenente tale file e dai questo comando

gc nomefile.txt | sort | gu | out-file unici.txt

e il gioco è fatto.

[trippacchiello]

ok grazie per le info. alla fine ho fatto come diceva patel

[patel]

credo che una macro per farlo in automatico non dovrebbe essere complicata per certi esperti che frequentano questo forum e potrebbe tornare utile a tutti.

[nicola75ss]

Salvare il file con estensione vbs. Lanciarlo e scegliere il file di cui si vogliono rimuovere i doppioni. Resta il fatto che con powershell basta mezza riga di codice.

Const ForReading = 1
Const ForWriting = 2

 
Set objDialog = CreateObject("UserAccounts.CommonDialog")
objDialog.Filter = "Text Files|*.Txt"
intResult = objDialog.ShowOpen
If intResult = 0 Then
Wscript.Quit
Else
strFileName = objDialog.FileName
End If

Set objDictionary = CreateObject("Scripting.Dictionary")
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile(strFileName, ForReading)

Do Until objFile.AtEndOfStream
	strName = objFile.ReadLine
	If Not objDictionary.Exists(strName) Then
		objDictionary.Add strName, strName
	End If
Loop
objFile.Close

 
Set objFile = objFSO.OpenTextFile(strFileName, ForWriting)
For Each strKey in objDictionary.Keys
  objFile.WriteLine strKey
Next

 
objFile.Close
MsgBox "Rimossi doppioni dal file " & strFileName

[patel]

funziona benissimo, bravo ! ho incollato in un file di testo ed ho cambiato l'estensione in vbs, doppio clic e via. Non avevo dubbi. Mi piacerebbe sapere qualcosa di più, è necessario avere installato Office ?

[nicola75ss]

Originariamente inviato da patel
è necessario avere installato Office ?

Non è necessario che office sia installato.

[patel]

non ti far pregare dove trovo una guida ?

[nicola75ss]

Originariamente inviato da patel
non ti far pregare dove trovo una guida ?

Di che cosa, di vbs?