Newsgroup: it.comp.aiuto
Titolo: Problema con testo .txt

Chiedo scusa forse sono OT, provo ugualmente perň a chiedere come
fare una modifica ad un testo, dato che non saprei dove formulare la
richiesta.
Mi trovo a dover unire due documenti allineati attraverso la stessa riga,
secondo il seguente ordine:
la prima riga del primo file con la prima riga del secondo file, una accanto
all'altra;
la seconda riga del primo file con la seconda riga del secondo file,
cosě via per tutto il resto dei documenti che sono molto lunghi e larghi.
In sostanza ho due file di testo (txt) che dovrei copiare in un unico
file mantenendo l'allineamento di ogni riga di ciascun file.
Mi aiutate per favore? Dispongo di Word 2003 e Notepad.
Considerate anche che la larghezza di una riga č lunga 268 colonne!
Spero di essere stata chiara, grazie1000!!!
Sharpless

"Sharpless"
se "c'azzecchi" qualcosa col linguaggio di scripting
o Visual Basic la cosa piu' accessibile e maleabile sarebbe
il FSO  File Sytem Object [1]
altrimenti
news:microsoft.public.it.office.word
[1]
http://www.google.it/search?hl=it&q=FileSystemObject&meta=
Incomincia cercando ReadAll e Append :
Questo sotto e' l'help del WSH con numerosi esempi ( sopra il mega)
http://www.microsoft.com/downloads/details.aspx?FamilyId=01592C48-207D-4BE1-8A76-1C4099D7BBB9&displaylang=en
http://download.microsoft.com/download/winscript56/Install/5.6/W982KMeXP/EN-US/scrdoc56en.exe
(tuttosuunarigasenononfungecopiaincollaunpezzopervolta)
Download and install WSH 5.6 from here:
http://msdn.microsoft.com/downloads/list/webdev.asp
--
Fosco

 se "c'azzecchi" qualcosa col linguaggio di scripting
http://www.google.it/search?hl=it&q=fso%2Bread+and+append&btnG=Cerca+con+Google&meta=
'ecco qui un piccolo esempio per farci la mano che  avevo gia sul HD:
Set oFSO = CreateObject("Scripting.FileSystemObject")
 Set file = oFSO.OpenTextFile("c:\counter.txt", 1)
x = file.Readline
Msgbox x
Msgbox SkipLineInFile
Function SkipLineInFile
Const ForReading = 1, ForWriting = 2, ForAppending = 8
   Dim fso, f
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set f = fso.OpenTextFile("C:\test.txt", 8, True)
   f.Write "Hello world!" & vbCrLf & "VB Script is fun!"& vbCrLf & "XXXXXXX"
   Set f = fso.OpenTextFile("C:\test.txt", ForReading)
' f.SkipLine
' f.SkipLine
'oppure
'For i = 0 to x
  'f.SkipLine
'Next
 ' SkipLineInFile = f.ReadLine
End Function
'Copia incolla su notepad e salva con estensione .vbs
'tutti i file (*.*)  poi ci clicchi sopra. (per esempio test.vbs)
'se ti da' errore disattiva l'antivirus
--
Fosco

news:YCtRe.34946$TR5....@news.edisontel.com...

ARGHHHHH!!!!
Innanzitutto ringrazio per avermi risposto, ma
qualcosa di più semplice per una comune.......
mortale.... non esiste???
Ciao
Sharpless 

Mentre mi apprestavo a riciclare alcuni bit, *Sharpless* ha scritto:

Io al posto di Notepad uso EditPad Pro che č molto piů potente e tra le 
varie funzioni ha anche quella della 'Selezione rettangolare' (quella che, 
come con Word, puoi fare tenendo premuto il tasto Alt mentre selezioni il 
testo) che ti permetterebbe di fare una selezione del secondo file e poi di 
incollarlo a fianco del primo.
Esiste una versione demo di EditPad Pro che puoi scaricare qui: 
http://www.editpadpro.com/download.html
Prova a vedere se riesci ad ottenere quello che vuoi.
Attenzione che la selezione rettangolare funziona a patto che non sia 
impostato l'A capo automatico.
-- 
3st3b4n
www.seber.it
Questo post č stato scritto con bit riciclati 

Usa UltraEdit.
Apri i due file, selezioni tutto il testo del secondo file
che va appeso al primo, ti posizioni sulla prima riga
del primo file alla colonna 268. Premi ALT+C e CTRL+V.
Salva ed ecco fatto.
Ciao
Lorenzo

 del secondo file e poi di incollarlo a fianco del primo.
Mi permetto di aggiungere che anche Notepad++ (freeware) dispone di 
questa utile funzionalità:
http://notepad-plus.sourceforge.net/it/site.htm
Un saluto.
-- 
Henry The Mole.
_________________________________
The Mole Zone: 
www.themolezone.net
remove EHILABEPPE to e-mail me 

"Fosco"
azz ..... per fare una cosa  terra terra senza troppi tecnicismi [1]
'togli la prima riga (on error resume next) se vuoi scoprire
'se e quali errori da
on error resume next
Set oFSO = CreateObject("Scripting.FileSystemObject")
 Set file = oFSO.OpenTextFile("c:\uno.txt", 1)
 Set file2 = oFSO.OpenTextFile("c:\due.txt", 1)
a = file.Readline  ' legge la prima riga di c:\uno.txt
a2 = file2.Readline ' legge la prima riga di c:\due.txt
b = file.Readline   ' ' legge la seconda riga di c:\uno.txt
b2 = file2.Readline   ' legge la seconda riga di c:\due.txt
c = file.Readline       ' ecc
c2 = file2.Readline
'ecc
'msgbox a
'msgbox a2   'ecc
' il  "" .Readline ""  se tenti di leggere un riga che NON c'e' da ERRORE
'il risultato lo spariamo in tre.txt
Set f = ofso.CreateTextFile("c:\tre.txt", True)
' scrive il risultato TUTTO SU UNA RIGA
f.WriteLine a & a2 & b & b2 & c & c2
scrive il risultato su varie righe
'f.WriteLine a  ' scrive la prima riga di c:\uno.txt
'f.WriteLine a2 ' scrive la prima riga di c:\due.txt
'f.WriteLine b   'scrive la seconda riga di c:\uno.txt
'f.WriteLine b2  ' ' scrive la seconda riga di c:\due.txt
'f.WriteLine c  ' ecc
'f.WriteLine c2
'ecc
' [1] se vuoi qualcosa di piu sofisticato cerca nel help
sotto o in 
www.google.it
   Array  >>>>>  Array Function
--
Fosco

EVVIVA!
Con le vostre rispose sono sicura che riuscirò nell'intento,
ora che ho l'imbarazzo della scelta!
Grazie di cuore, sono grata a tutti voi
Sharpless