Newsgroup: it.comp.os.win.xp
Titolo: Togliere l'ultima lettera

Salve a tutti!
 
Ho un file in formato TXT.
c'e una parola in ogni linea,ad esempio:
 
casa
gatto
auto
sole
luna
ecc,ecc,ecc
 
Dovrei togliere SOLO l'ultima lettera di ogni parola.
Siccome ce ne sono circa 15.000 non posso farlo manualmente.
Qualcno potrebbe darmi qualche consiglio su come fare?
 
Grazie 1000!
 
M.

 Qualcno potrebbe darmi qualche consiglio su come fare?
 
Un programmino in VB, scritto in tre minuti:
*************
Private Sub Command1_Click()
     Dim Riga As String
     Dim FileLibero1 As Integer
     Dim FileLibero2 As Integer
     FileLibero1 = FreeFile
     Open "c:\FileIn.txt" For Input As #FileLibero1
     FileLibero2 = FreeFile
     Open "c:\FileOut.txt" For Output As #FileLibero2
     Do While Not EOF(FileLibero1)
         Line Input #1, Riga
         Riga = Trim$(Riga)
         If Len(Riga) > 1 Then
             Riga = Left$(Riga, Len(Riga) - 1)
             Print #2, Riga
         End If
     Loop
     Close FileLibero1
     Close FileLibero2
     MsgBox "finito"
End Sub
*************
 
Se ti fidi posso farti un eseguibile e appoggiarlo
da qualche parte.
 
Bye, G.

On Wed, 19 Oct 2011 16:33:39 +0200, Paperino <non...@lo.dico.invalid>
wrote:

Ceto che mi fido! La mia email e' mmpers (at) 
katamail.com
 
 
 
GRAZIE!!


Apri Notepad e copia il testo qui sotto, sostituisci i nomi dei file con quelli
che vuoi mettere e salvalo come 'TogliUltimo.vbs'
 
Da Explorer clicca sul .vbs
 
_____________________________________
 
Const ForReading = 1, ForWriting = 2, ForAppending = 8
 
Dim OggFile, Origine, TextLine
Set Fso = CreateObject("Scripting.FileSystemObject")
 Origine = "c:\miofile.txt"
Destinazione = "c:\file_modificato.txt"
 
 
Set oFile = Fso.OpenTextFile (Origine, ForReading)
 
Set dFile = Fso.OpenTextFile (Destinazione, ForWriting, True)
 
 
Do While oFile.AtEndOfStream <> True
    TextLine = oFile.ReadLine
    Lt=Len(TextLine)-1 : MsgBox Lt
    TextLine = Left (TextLine, Lt)'  : MsgBox TextLine
    dFile.Write TextLine & Vbcrlf
Loop
 
 
 oFile.Close
 dFile.Close
_____________________________
 
--
ciao
  Stefano


_____________________________________
 
Const ForReading = 1, ForWriting = 2, ForAppending = 8
 
Dim OggFile, Origine, TextLine
Set Fso = CreateObject("Scripting.FileSystemObject")
 Origine = "c:\miofile.txt"
Destinazione = "c:\file_modificato.txt"
 
Set oFile = Fso.OpenTextFile (Origine, ForReading)
 
Set dFile = Fso.OpenTextFile (Destinazione, ForWriting, True)
 
Do While oFile.AtEndOfStream <> True
    TextLine = oFile.ReadLine
    Lt=Len(TextLine)-1
    TextLine = Left (TextLine, Lt)' 



FUNZIONA!
 
Dimmi dove mandarti almeno un caffe'!! :))
 
GRAZIE!!!

Dimmi dove mandarti almeno un caffe'!! :))
 
Un caffè virtuale...
 
http://www.virtualcoffee.com/
 
 
 
--
ciao
  Stefano

 ha scritto nel messaggio 
news:rmqt97h03q3mnj7fp...@4ax.com...

mannaggia, volevo approfittare anche io di questa ghiotta chicca, mi 
piacciono molto le utilities di elaborazione testo, ma scopro che i files 
vbs non mi funzionano, forse perchè a suo tempo devo aver disattivato 
qualcosa di relativo agli script.
il fatto è che non so risalire alla fonte della mia modifica.
mah, vabbe'....