Μultiple txt files σε 1 word & ευρεση 2πλων εγγραφων

VB Script και κολπάκια, Excel macro, Word, Powerpoint, κτλ

Συντονιστές: WebDev Moderators, Super-Moderators

Απάντηση
Άβαταρ μέλους
Connor MacLeod
Honorary Member
Δημοσιεύσεις: 13372
Εγγραφή: 07 Φεβ 2005 13:36
Τοποθεσία: Κοζάνη
Επικοινωνία:

Μultiple txt files σε 1 word & ευρεση 2πλων εγγραφων

Δημοσίευση από Connor MacLeod » 12 Νοέμ 2015 00:59

καλησπερα. Θελω να κανω τα δυο παραπάνω, αυτοματοποιημενα:

:arrow: Εχω 10-15 αρχεια .txt που εχουν παρομιο περιεχομενο και θελω να μπουνε σε 1 αρχειο word. Γινεται αντι να καθομαι να τα ανοιγω ενα ενα, καπως να μπουνε ολα σε 1 αρχειο word?

:arrow: αυτα τα αρχεια εχουν παρομοιο περιεχομενο αλλα ειναι ανακατεμενα. Γινεται να μπουνε αυτοματα σε καποια σειρα?
πχ εχουν ανα γραμμη εγραφες οπως,
yyy/11
aa/2
aa/1
yyy/17
αφου περαστει αυτο το txt στο word με καποια διαδικασια να γινει re-arange σε
aa/1
aa/2
yyy/11
yyy/17

:arrow: Και τέλος, αν έχω διπλες εγραφες πχ,
aa/1
aa/2
yyy/11
yyy/17
i3/3
99.9
p0-9
i3/3
να σβισει την μια απο τις 2 αυτοματα (αυτο βεβαια γιατι θα εχει εκατονταδες διπλες εγραφες για να μη τις σβηνω με το χερι)
Meizu MX5(5.5"/8Core/3GB/32GB/Sony IMX220 20.7MP)
PC 27'' (3770@3.4/16GB/560SE/500GB SATA3/650W S12G)
Mac mini (2.5GHz/8GB/6630/90GB GorsairGT)

Άβαταρ μέλους
burnmind
Script Master
Δημοσιεύσεις: 954
Εγγραφή: 26 Σεπ 2009 02:14
Τοποθεσία: UK
Επικοινωνία:

Μultiple txt files σε 1 word & ευρεση 2πλων εγγραφων

Δημοσίευση από burnmind » 12 Νοέμ 2015 03:12

Αν έχεις εγκατεστημένη php, βάλε όλα τα txt αρχεία σε έναν φάκελο μαζί με το παρακάτω script (ονόμασέ το όπως θες), τρέξ' το (π.χ. "php connor.php" χωρίς τα εισαγωγικά από command line) και θα σου αποθηκεύσει όλες τις μοναδικές εγγραφές σε αλφαβητική σειρά σε ένα νέο txt αρχείο, οπότε μπορείς να τις κάνεις ένα copy-paste όπου θέλεις:

Κώδικας: Επιλογή όλων

<?php
$filenames = glob&#40;"*.txt"&#41;;

$records = &#91;&#93;;

foreach &#40;$filenames as $filename&#41; &#123;
    $file = new SplFileObject&#40;$filename&#41;;
    while &#40;!$file->eof&#40;&#41;&#41; &#123;
        $records&#91;&#93; = trim&#40;$file->fgets&#40;&#41;&#41;;
    &#125;
&#125;

$records = array_unique&#40;$records&#41;;
sort&#40;$records&#41;;

file_put_contents&#40;'outcome_' . time&#40;&#41; . '.txt', implode&#40;PHP_EOL, $records&#41;&#41;;
Παράδειγμα:

Κώδικας: Επιλογή όλων

# 1.txt
---
yyy/11
aa/2
aa/1 
yyy/17

# 2.txt
---
aa/1 
aa/2 
yyy/11 
yyy/17 
i3/3 
99.9 
p0-9 
i3/3 

# 3.txt
---
aa/1 
da/2 
ycy/11 
yyv/17 
i3/3 
9z.9 
p0-9 
i3/3 

# outcome_1447290127.txt
---
99.9
9z.9
aa/1
aa/2
da/2
i3/3
p0-9
ycy/11
yyv/17
yyy/11
yyy/17

Άβαταρ μέλους
Connor MacLeod
Honorary Member
Δημοσιεύσεις: 13372
Εγγραφή: 07 Φεβ 2005 13:36
Τοποθεσία: Κοζάνη
Επικοινωνία:

Μultiple txt files σε 1 word & ευρεση 2πλων εγγραφων

Δημοσίευση από Connor MacLeod » 12 Νοέμ 2015 07:26

:clap: :clap: :clap:

Σε ευχαριστώ πολυ burnmind.
Ειναι δικος σου αυτος ο κώδικας ή τον εχεις παρει απο καπου?
υπάρχει λόγος που ρωτάω περι δικαιοματων αν θα μπορουσα να τον χρησιμοποιησω σε δουλεια επαγγελματικη
Meizu MX5(5.5"/8Core/3GB/32GB/Sony IMX220 20.7MP)
PC 27'' (3770@3.4/16GB/560SE/500GB SATA3/650W S12G)
Mac mini (2.5GHz/8GB/6630/90GB GorsairGT)

gvre
Δημοσιεύσεις: 990
Εγγραφή: 14 Οκτ 2010 11:34
Τοποθεσία: Ηράκλειο Κρήτης
Επικοινωνία:

Μultiple txt files σε 1 word & ευρεση 2πλων εγγραφων

Δημοσίευση από gvre » 12 Νοέμ 2015 09:28

Αν έχεις linux ή osx, βάλε σε έναν φάκελο όλα τα αρχεία και τρέξε

Κώδικας: Επιλογή όλων

sort -u *.txt > sorted.txt

Άβαταρ μέλους
Connor MacLeod
Honorary Member
Δημοσιεύσεις: 13372
Εγγραφή: 07 Φεβ 2005 13:36
Τοποθεσία: Κοζάνη
Επικοινωνία:

Μultiple txt files σε 1 word & ευρεση 2πλων εγγραφων

Δημοσίευση από Connor MacLeod » 12 Νοέμ 2015 10:04

Ναι παιζει στο OS X μια χαρα. thanks και γιαυτο
Το δοκιμασα και σε windows και παιζει με

Κώδικας: Επιλογή όλων

sort <input.txt >output.txt
Meizu MX5(5.5"/8Core/3GB/32GB/Sony IMX220 20.7MP)
PC 27'' (3770@3.4/16GB/560SE/500GB SATA3/650W S12G)
Mac mini (2.5GHz/8GB/6630/90GB GorsairGT)

gvre
Δημοσιεύσεις: 990
Εγγραφή: 14 Οκτ 2010 11:34
Τοποθεσία: Ηράκλειο Κρήτης
Επικοινωνία:

Μultiple txt files σε 1 word & ευρεση 2πλων εγγραφων

Δημοσίευση από gvre » 12 Νοέμ 2015 10:11

Λογικά, η εντολή που έδωσες στα win δεν αφαιρεί τις διπλοεγγραφές. Αν θέλεις να είσαι οπωσδήποτε σε windows, δες το http://unxutils.sourceforge.net/ (έχω να τα δοκιμάσω αρκετά χρόνια).

Άβαταρ μέλους
burnmind
Script Master
Δημοσιεύσεις: 954
Εγγραφή: 26 Σεπ 2009 02:14
Τοποθεσία: UK
Επικοινωνία:

Μultiple txt files σε 1 word & ευρεση 2πλων εγγραφων

Δημοσίευση από burnmind » 12 Νοέμ 2015 13:05

@connor: δικός μου είναι, χρησιμοποίησέ τον ελεύθερα. :)

Άβαταρ μέλους
Connor MacLeod
Honorary Member
Δημοσιεύσεις: 13372
Εγγραφή: 07 Φεβ 2005 13:36
Τοποθεσία: Κοζάνη
Επικοινωνία:

Μultiple txt files σε 1 word & ευρεση 2πλων εγγραφων

Δημοσίευση από Connor MacLeod » 12 Νοέμ 2015 13:22

Σε ευχαριστω burnmind. Να'σε καλα :P
Meizu MX5(5.5"/8Core/3GB/32GB/Sony IMX220 20.7MP)
PC 27'' (3770@3.4/16GB/560SE/500GB SATA3/650W S12G)
Mac mini (2.5GHz/8GB/6630/90GB GorsairGT)

Άβαταρ μέλους
Connor MacLeod
Honorary Member
Δημοσιεύσεις: 13372
Εγγραφή: 07 Φεβ 2005 13:36
Τοποθεσία: Κοζάνη
Επικοινωνία:

Μultiple txt files σε 1 word & ευρεση 2πλων εγγραφων

Δημοσίευση από Connor MacLeod » 12 Νοέμ 2015 13:24

gvre έγραψε:Λογικά, η εντολή που έδωσες στα win δεν αφαιρεί τις διπλοεγγραφές. Αν θέλεις να είσαι οπωσδήποτε σε windows, δες το http://unxutils.sourceforge.net/ (έχω να τα δοκιμάσω αρκετά χρόνια).
Οχι δε τις αφαιρεί. Απλα παιρνει ενα αρχειο και το διατασει αλφαβητικα. Δε το δοκιμασα αν παιζει με multiple files Και να τα βαλει σε ενα.
:-?
Meizu MX5(5.5"/8Core/3GB/32GB/Sony IMX220 20.7MP)
PC 27'' (3770@3.4/16GB/560SE/500GB SATA3/650W S12G)
Mac mini (2.5GHz/8GB/6630/90GB GorsairGT)

Απάντηση

Επιστροφή στο “Office, Excel, Word VB Scripts και Tips”

Μέλη σε σύνδεση

Μέλη σε αυτήν τη Δ. Συζήτηση: Δεν υπάρχουν εγγεγραμμένα μέλη και 0 επισκέπτες