Newsgroup: it.comp.lang.visual-basic
Titolo: leggo file txt mi carica 2 barre

io ho inserito questo codice.
Set fso = CreateObject("scripting.filesystemobject")
    Set file = fso.opentextfile("c:\chiusura.txt")
    percorso = file.readall
all interno del file c'e' scritto:   c:\
quando lo leggo e lo metto nel casella di testo  mi scrive c:\|| 2 barrette 
sili a queste ma + spesse . perche??e le devo cancellare manualmente  helppp 


Un po' di fantasia...
Non è che nel file di testo, dopo la barra retroversa, c'è un 'a capo'???
Alberto
-- 
"C'è un Calvelli dentro ognuno di noi" (cit.) 

 ha scritto nel messaggio 
news:d4q88m$gol$1...@area.cu.mi.it...

si ma come posso togliero o non farlo scrive quando scrivo nel file??
scusate il disturbo grazie 1000 

 si ma come posso togliero o non farlo scrive quando scrivo nel file??
E come cavolo posso saperlo, se non ho la piů pallida idea di *chi* scrive 
il file...
Potresti risolverlo quando leggi, con un banale replace$, ma se proprio vuoi 
modificare a monte, questo esula dal thread.
Alberto
-- 
"C'č un Calvelli dentro ognuno di noi" (cit.) 

 ha scritto nel messaggio 
news:d4q956$i4b$1...@area.cu.mi.it...

sono io che ho creato il file a monte sempre con lo stesso programma 

 Potresti risolverlo quando leggi, con un banale replace$, ma se proprio vuoi 
Oppure, se fa al caso tuo, puoi impostare a True la proprietà MultiLine
della casella di testo

 sono io che ho creato il file a monte sempre con lo stesso programma
Tutto chiaro.
Allora non scrivere il fine linea a fine file, e sei a posto.
Ciao
Alberto
-- 
"C'è un Calvelli dentro ognuno di noi" (cit.) 

 sono io che ho creato il file a monte sempre con lo stesso programma 
Quindi hai messo un vbCrLf di troppo.
Hai 2 strade: Non scrivi il vbCrLf quando salvi nel file oppure quando 
leggi fai una replace dei vbCrLf con una stringa vuota.
bye
-- 
Gestione Ottica - Gestionale per Ottici e Programmi Gratuiti su:
http://www.nicolaottomano.it
Sinapsi Antispam. Antispam Gratuito.
http://www.nicolaottomano.it/sinapsi.htm
email spamtrap: 
spam...@nicolaottomano.it

 leggi fai una replace dei vbCrLf con una stringa vuota.
... e poi scrivi Trim$(StringaOttenuta) nella textbox.
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

    percorso = file.readall
dove metto replace$ ??
per scriver il file ho fatto cosi'
  Open "c:\chiusura.txt" For Output As #1
  ' I dati scritti sono delimitati da virgole.
       Print #1, Txtperc.Text & "\"
     percorso = Txtperc
    'legge tutto il file
    cmdsalva.Visible = False
cosa devo aggiungere per non farlo andare a capo??
scusate ignoranza ma è poco che uso VB 

 cosa devo aggiungere per non farlo andare a capo??
Print #1, Txtperc.Text & "\";

     percorso = file.readall
Il File System Object  NON e' il miglior sistema in Visual Basic
se insisti prova a leggere solo la/e riga/e e non tutto il file
Set fso = CreateObject("scripting.filesystemobject")
    Set file = fso.opentextfile("c:\chiusura.txt")
  percorso = file.readline
'percorso = file.readline
'ecc
  MsgBox percorso
'Oppure se devi leggere tutto il file ricerca quello che ti interessa
sLogFile = "C:\WINDOWS\TEMP\LogFile.Log"
oFile ="C:\chiusura.txt"
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oLogFile = oFSO.OpenTextFile(sLogFile, 8, True, 0)
    Set oStream = oFSO.OpenTextFile(oFile, 1)
    Do Until oStream.AtEndOfStream
      sLine = oStream.ReadLine
If InStr(LCase(sLine),"c:") Or InStr(LCase(sLine),"d:") Then
      '  oLogFile.WriteLine sLine & VBCrLf
Msgbox sLine
      End If
    Loop
'oppure
On Error Resume Next
Set fso = CreateObject("Scripting.FileSystemObject")
Set oFile = fso.OpenTextFile("c:\chiusura.txt", 1)
Do Until (Err.Number = 62) 'Err. quando non c'e' piu niente da  leggere
   Err.Number = 0
   sText = oFile.ReadLine()
   wscript.echo (sText)
Loop
'questo deve averlo postato qualcuno qui :
http://www.sloppycode.net/Reference/FSO/
--
Fosco