rimozione duplicati ed esportazione verso txt
- Login o registrati per inviare commenti
Dom, 26 Lug 2015 - 2:56 AM
ho bisogno di uno script che mi permetta dato un foglio di calcolo con diverse righe come quello allegato mi controlli se ci sono duplicati li rimuova e mi copi tutti i restanti in un file txt lasciando una riga vuota tra ogni riga di testo tipo il file txt allegato è possibile?
| Allegato | Dimensione |
|---|---|
| tracker.zip | 19.17 KB |
Lun, 27 Lug 2015 - 5:33 AM
#2
allegato ricaricato
allegato ricaricato
| Allegato | Dimensione |
|---|---|
| tracker.zip | 19.51 KB |
Lun, 27 Lug 2015 - 9:10 AM
#3
prova questa macro dopo aver
prova questa macro dopo aver modificato il percorso del file di destinazione
Sub dupelimina Dim collezione As New Collection Sh = ThisComponent.Sheets.getByName("Foglio1") c = Sh.createCursor c.gotoEndOfUsedArea(false) LastRow = c.RangeAddress.EndRow Lista() = Sh.getCellRangeByName("A1:A" & LastRow + 1).GetDataArrayFor i = 0 To Ubound(Lista) codice = Split(Lista(i)(zero), ", ")' al posto di zero scrivere 0 On Error Resume Next For n = 0 To Ubound(codice) collezione.Add(codice(n), CStr(Codice(n))) Next n Next i On Error Goto 0 fname = ConvertToUrl("F:\Download\tracker.txt") ' <<<<< da modificare n = FreeFile() Open fname For Output Access Write As #n For x = 1 To collezione.Count Print #n, collezione(x) Print #n Next x Close #nEnd Sub
Lun, 27 Lug 2015 - 10:12 AM
#4
funzionare sembra funzionare
funzionare sembra funzionare c’è possibilità di dargli anche l’ordinamento multiplo
prima ordinare per il protocollo se http o udp
secondo per il dominio se comincia con www o altro
e per ultimo l’estensione del dominio
????
è possibile
Lun, 27 Lug 2015 - 11:24 AM
#5
prima di lanciare la macro
prima di lanciare la macro fai l’ordinamento
Dom, 02 Ago 2015 - 4:23 AM
#6
funzionare sembra funzionare
funzionare sembra funzionare però se apro il txt e copio il risultato che sembra corretto infatti ho una riga di testo e una vuota ma quando chiudo e riapro le proprietà dove ho copiato mi si cancellano tutte le righe vuote ed è come se non ci fossero?????
Dom, 02 Ago 2015 - 5:54 AM
#7
non ho capito
non ho capito
Dom, 02 Ago 2015 - 6:20 AM
#8
ho allegato anche degli
ho allegato anche degli screenshot per tentare di spiegarmi meglio:
1 dopo aver eseguito la macro apro il file txt e sembra corretto una riga vuota ogni riga di testo ( prima immagine) poi seleziono e copio tutto
2 apro le proprietà del torrent e incollo il testo copiato prima ( seconda immagine) e sembra sia copiato correttamente una riga vuota ogni riga di testo
3 se riguardo le proprietà del torrent ( terza immagine ) solo dopo la prima riga mi rimane la riga vuota le altre è come se vengano eliminate
mi sono spiegato meglio?
| Allegato | Dimensione |
|---|---|
| Desktop.zip | 302.39 KB |
Lun, 03 Ago 2015 - 12:46 AM
#9
il file txt è corretto, il
il file txt è corretto, il problema è dovuto all’incollaggio su bluefish e non so come risolverlo.
Se incolli su un altro file di testo le righe vuote non spariscono, prova con un altro editor html.
Mer, 06 Apr 2016 - 4:02 PM
#10
ho provato a riprendere
ho provato a riprendere questo script per crearmi una nuova lista di tracker solo che adesso mi da errore per questa riga
( (
codice = Split(Lista(i)(<img src="http://it.libreofficeforum.org/sites/all/modules/smileys/packs/Roving/innocent.png" title="Innocent" alt="Innocent" class="smiley-content"/>, ", ")
probabilmente c’è stato qualche aggiornamento nel forum e ha cambiato quacosa??
( (
Lun, 18 Apr 2016 - 6:07 AM
#11
hai ragione, alcuni caratteri
hai ragione, alcuni caratteri vengono male interpretati, ho corretto, basta sostituire zero con 0
Lun, 18 Apr 2016 - 12:03 PM
#12
grazie adesso me lo sono
grazie adesso me lo sono salvato 
Mint 17 – LibreOffice 5.0.2.2
Win 8 – LibreOffice 5.0.2.2 allega un file di esempio, guadagnerai tempo tu e lo farai risparmiare a chi ti aiuta