Newsgroup: it.comp.lang.visual-basic
Titolo: shell dos e formattazione file txt

sto cercando disperatamente di fare un piccolo programma vb che mi permetta
di monitorare degli indirizzi ip,
finalmente sono riuscito a creare qualcosa di decente con l'aiuto di uno dei
frequentatori di questo ng purtroppo ora ho un problema oserei dire
imbarazzante!Salvando l'output del file ping su un file out.txt mi viene
salvato cosi
Esecuzione di Ping 192.168.1.1 con 32 byte di dati:
Host di destinazione irraggiungibile.
Host di destinazione irraggiungibile.
Host di destinazione irraggiungibile.
Host di destinazione irraggiungibile.
Statistiche Ping per 
192.168.1.1
:
    Pacchetti: Trasmessi = 4, Ricevuti = 0, Persi = 4 (100% persi),
Tempo approssimativo percorsi andata/ritorno in millisecondi:
    Minimo = 0ms, Massimo =  0ms, Medio =  0ms
ma quando poi vado  a leggere questo file tramite
open "c:\out.txt" for input as #1
input #1, ipresult
text2.text = ipresult
close #1
non me lo legge penso a causa della formattazione del testo infatti se poi
apro questo file con notepad e lo risalvo tale e quale con la stessa
procedura
open.....
.........
close #1
i risultati vengono visualizzati ma cosi
Esecuzione di Ping 194.170.170.200 con 32 byte di dati:Risposta da
194.170.170.200
: byte=32 durata<10ms TTL=128Risposta da 
194.170.170.200
:
byte=32 durata<10ms TTL=128Risposta da 
194.170.170.200
: byte=32 durata<10ms
TTL=128Risposta da 
194.170.170.200
: byte=32 durata<10ms TTL=128Statistiche
Ping per 
194.170.170.200
:    Pacchetti: Trasmessi = 4
come posso fare a fare in modo che la solita procedura qui sopra mi
visualizzi il file senza dover utilizzare una shell con notepad????
Ciao
Luca Gatti

Piccola domanda... ma passi per il DOS per qualche motivo o perché ???
Perché se e' solo per monitorare  non serviva fare tutto questo giro.....
ossia se e' solo per vedere se un determinato IP Address risponde... poche
chiamate alle api e avevi risolto... fammi sapere
Ciao
Ven.


 Perche se e' solo per monitorare  non serviva fare tutto questo giro.....


Innanzitutto l'istruzione
input #1, ipresult
che hai usato tu non legge tutto il file in un solo colpo. Il metodo
migliore consiste nel fare un ciclo Do....While, leggendo una riga alla
volta. Piů o meno cosě:
text2=""
Do While Err.Number=0
    Line Input #1,ipresult
    text2=text2 & ipresult & Chr$(10) & Chr$(13)
Loop
Quando arrivi alla fine del file, viene alzato l'errore 53 (Input oltre la
fine del file) e il ciclo si chiude.
L'istruzione Line Input č simile ad Input, perň legge una riga
completamente, fregandosene di eventuali virgole, punti e virgole e cosě via
che con Input potrebbero darti problemi.
Ogni riga che viene letta dal file viene accodata alla casella di testo, con
un bel accapo. Nella casella di testo usa un font che non sia TrueType, cosě
mantieni l'incolonnamento.
Dovrebbe funzionare......perň non l'ho provato, l'ho scritto cosě su due
piedi usando solo la mia piccola testa!! Prova!!
Damiani "Alletun" Igor
ico...@simcity.it

 Dovrebbe funzionare......pero non l'ho provato, l'ho scritto cosi su due


dicevo !
se ce li hai e puoi mandarmeli ti ringrazio!!
Ciao Luca


Loop
volevo solo dire che sarebbe meglio fare
Dim Total As String
text2 = ""
Do Until Eof(1)
    Line Input #1, ipresult
    Total = Total & ipresult & vbCrLf
Loop
text2 = Total
mettere il contenuto in una stringa e poi assegnarla alla TextBox è
moooooolto più veloce (provare per credere)
non m'ispira tanto quel "While Err.Number = 0" ...
usando la costante vbCrLf si evita di chiamare due funzioni
Ciao
Faber