Come fare per caricare ed elaborare simultaneamente più files esterni?

[lotto_tom75]

comunque l'ultimo codice che hai scritto è giusto , l'ho testato cosi

Sub Main
	sriga = "e   "
	Call Scrivi("prima:")
	Call Scrivi
	Call Scrivi("*" & sRiga & "*")
	Dim Stringatrimmata
	Stringatrimmata = Trim(sRiga)
	Call Scrivi("dopo:")
	Call Scrivi
	Call Scrivi("*" & Stringatrimmata & "*")
End Sub

Il file txt l'ho creato dalla sezione "sistemi condizionati" di spaziometri versione .98 andando su salva colonne in testo (icona floppy disk azzurro) e da lì se verifico il file txt con notepad+ noto questo:

01 11 21 31 41 51 61

01 11 21 31 42 52 62

01 11 21 31 43 53 63

01 11 21 31 44 54 64

01 11 21 31 45 55 65

Prendendo ad esempio le prime 5 righe del file txt generato
oltre allo spazio tra una riga e l'altra c'e' anche un spazio dopo
l'ultimo valore di riga proprio come evidenziavo nel post del
trim

Se invece verifico lo stesso file con notepad non noto alcuno spazio tra una riga e l'altra e nemmeno alla fine dell'ultimo carattere di riga

 

[LuigiB]

ahh ho capito ... vabbe ...
avevo detto qualche post piu sopra che i file txt possono avere come terminatore di riga o vbCr o vbCrLf , avevo pure detto che i file txt prodotti da windows (quindi proprio quelli prodotti da spaziometria) si devono leggere impostando vbCrLf.
Tu invece hai lasciato l'impostazione del mio esempio che era valida per il file LottoUk.txt ..

 

[LuigiB]

ah dimenticavo se imposti bene quanto detto sopra non serve nessun trim

 

[lotto_tom75]

ah dimenticavo se imposti bene quanto detto sopra non serve nessun trim

prima:

*01 11 21 31 41 51 61*

dopo:

*01 11 21 31 41 51 61*



Perfetto GRAZIE