Cerca testo in file .txt

[SerioBg]

Ho bisogno di estrarre da grossi file txt la seguente sequenza : "parola:parola"; praticamente le voci unite fra loro dai due punti.
Sapete se è possibile e come si fa ? Possibilmente se fosse possibile anche modificando la sequenza.

Grazie

[Al3x]

estrarre per farne cosa? E' importante sapere dove finisce l'output per dare qualche indicazione più precisa

[SerioBg]

Per fare un elenco in un altro file di testo

[Al3x]

presumo che con vbscript sia possibile realizzare facilmente uno script che svolga questa operazione. Vediamo se qualcuno sa come procedere

[PippoDJ]

presumo che con vbscript sia possibile realizzare facilmente uno script che svolga questa operazione. Vediamo se qualcuno sa come procedere

Challenge accepted!

senzasoldi.vbs:

Codice: Seleziona tutto

ESPRESSIONEREGOLARE = "[a-z]+:[a-z]+"

Set FSO = CreateObject("Scripting.FileSystemObject")
Set TF = FSO.OpenTextFile("input.txt", 1)
TESTOIN = TF.ReadAll
TF.Close
Set RE = CreateObject("VBScript.RegExp")
RE.Global = True
RE.IgnoreCase = True   
RE.Pattern = ESPRESSIONEREGOLARE
Set RISULTATI = RE.Execute(TESTOIN)  
If RISULTATI.Count > 0 Then
   Set TF = FSO.OpenTextFile("output.txt", 2, True)
   For Each RISULTATO in RISULTATI
      TF.WriteLine(RISULTATO.Value)   
   Next
   TF.Close
   Wscript.Echo "Operazione completata."
Else
   Wscript.Echo "Espressione non trovata."
End If

Per semplicità il file di testo in ingresso deve chiamarsi input.txt e si deve trovare nella stessa cartella dello script VBS che, al termine dell'estrazione, scriverà il file output.txt contenente i risultati.

Il cuore del programma è tutto nella espressione regolare definita nella prima riga: modificandola opportunamente, si potrà usare lo stesso codice per altri scopi. Ad esempio: se le parole da cercare contengono anche caratteri numerici, basterà sostituire la prima riga con:
ESPRESSIONEREGOLARE = "[a-z0-9]+:[a-z0-9]+"

Ciao, Pippo.

[SerioBg]

Molte grazie, mi sembra che funzioni. Desideravo sapere come posso inserire, oltre a lettere e numeri, eventuali caratteri particolari tipo "!;@./"nell'espressioneregolare al fine di raffinare la ricerca.

Grazie

[PippoDJ]

Desideravo sapere come posso inserire, oltre a lettere e numeri, eventuali caratteri particolari tipo "!;@./"nell'espressioneregolare al fine di raffinare la ricerca.

Vanno aggiunti, uno per uno, nelle espressioni comprese tra parentesi quadre. Usando come esempio i 5 caratteri "!;@./" che hai indicato diventerebbe:
ESPRESSIONEREGOLARE = "[a-z0-9!;@./]+:[a-z0-9!;@./]+"

Tieni presente che i caratteri "\", "^" e "-" hanno un significato speciale nelle espressioni regolari e, pertanto, vanno preceduti dal carattere di escape: "\\", "\^" e "\-":
ESPRESSIONEREGOLARE = "[a-z0-9\\\^\-]+:[a-z0-9\\\^\-]+"

A questo punto, se le coppie di parole sono separate solo da spazi, forse diventa più semplice usare un approccio "inverso":
ESPRESSIONEREGOLARE = "[^ \r\n]+:[^ \r\n]+"
che, in pratica, rileva qualsiasi carattere a parte gli spazi e gli "a capo".

Ciao, Pippo.

[SerioBg]

Ho fatto come hai indicato, ma non ho ottenuto quanto speravo, perchè scrivendo " "[a-z0-9!]+:[a-z0-9!]+" pensavo di selezionare solo ed unicamente tutte le espressioni contenenti anche il punto esclamativo. Invece mi estrae tutte le espressioni con lettere, tutte le espressioni con lettere e numero e tutte le espressioni con lettere,numeri, e punto esclamativo.
Cosa devo scrivere per ottenere il risultato che interessa?


Grazie

N.B: non mandarmi a quel paese!!!

[PippoDJ]

Ho fatto come hai indicato, ma non ho ottenuto quanto speravo, perchè scrivendo " "[a-z0-9!]+:[a-z0-9!]+" pensavo di selezionare solo ed unicamente tutte le espressioni contenenti anche il punto esclamativo. Invece mi estrae tutte le espressioni con lettere, tutte le espressioni con lettere e numero e tutte le espressioni con lettere,numeri, e punto esclamativo.
Cosa devo scrivere per ottenere il risultato che interessa?

Oops... sorry: avevo interpretato male la tua richiesta. La faccenda si complica un po'...

Per estrarre le espressioni che contengono "!" in entrambe le parole ai lati dei ":":
ESPRESSIONEREGOLARE = "[^\s]*!+[^\s]*:[^\s]*!+[^\s]*"

Per estrarre le espressioni che contengono "!" anche solo in una delle due parole ai lati dei ":":
ESPRESSIONEREGOLARE = "[^\s]*!+[^\s]*:[^\s]+|[^\s]+:[^\s]*!+[^\s]*"

N.B: non mandarmi a quel paese!!!

Certo che no... però adesso mi serve qualcosa che faccia passare il mal di testa.

[SerioBg]

Molte grazie. Tutto a posto

[SerioBg]

Rispolvero una vecchia discussione : alle espressioni sopra indicate è possibile aggiungere la condizione: se nella riga sotto compare la parola "IT" ?

Grazie

[PippoDJ]

se nella riga sotto compare la parola "IT" ?

Per essere sicuro di capire bene cosa ti serve, potresti inserire qualche riga come esempio del testo in ingresso in un tag "Code" e il corrispondente output che ti aspetti di ottenere (sempre in un altro tag "Code")?

[SerioBg]

Scusa, ti rispondo come posso. Ho un file di testo così strutturato:

"Cliente : Barbarafitzpatrick .com:jcfpa475
Indirizzo mail : Nazionalità|US
Cliente : Cearius .com:kakashe
Indirizzo mail : Nazionalità|US
Cliente : Charottips .com:C17t07G96
Indirizzo mail : Nazionalità|PY
Cliente : CocoBean66 .com:raylin66
Indirizzo mail : Nazionalità|US"

e desidero ottenere :

"Barbarafitzpatrick .com:jcfpa475|US
Cearius .com:kakashe|US
CocoBean66 .com:raylin66|US"

Praticamente mail e nazionalità omogenea del cliente. (senza virgolette)


Spero di essere stato chiaro.

Grazie

Ho tolto gli indirizzi email, non è il caso di farli vedere così apertamente.
By crazy.cat

[PippoDJ]

Potresti provare:
ESPRESSIONEREGOLARE = ".*\n.*\|US"

C'è però un accorgimento: visto che l'espressione deve trovare corrispondenza su più di una riga, è necessario aggiungere:
RE.MultiLine = True
...al codice VBS visto sopra (è questo che ha determinato un certo ritardo nella risposta ).

Per cui lo script modificato diventerebbe:

Codice: Seleziona tutto

ESPRESSIONEREGOLARE = ".*\n.*\|US"

Set FSO = CreateObject("Scripting.FileSystemObject")
Set TF = FSO.OpenTextFile("input.txt", 1)
TESTOIN = TF.ReadAll
TF.Close
Set RE = CreateObject("VBScript.RegExp")
RE.Global = True
RE.IgnoreCase = True   
RE.MultiLine = True
RE.Pattern = ESPRESSIONEREGOLARE
Set RISULTATI = RE.Execute(TESTOIN)  
If RISULTATI.Count > 0 Then
   Set TF = FSO.OpenTextFile("output.txt", 2, True)
   For Each RISULTATO in RISULTATI
      TF.WriteLine(RISULTATO.Value)   
   Next
   TF.Close
   Wscript.Echo "Operazione completata."
Else
   Wscript.Echo "Espressione non trovata."
End If

[SerioBg]

Molte grazie; Così può andare.