Aprire il Blocco note e digitare il seguente :
Linea 1
Linea 2
Linea 3
Linea 4
Linea 5
Salvare il file "C : \\ " come " . Data.txt "
2
Aprire Microsoft Visual Basic express e fare clic su " Nuovo progetto ... " nel riquadro di sinistra del vostro schermo . Fare doppio clic su " Applicazione console " . Premere il tasto " Ctrl " e "A " e poi premere "Cancella " per cancellare tutto il codice esistente.
3
Copia e incolla il seguente codice al modulo " Module1.vb " per comprimere leggere il file " data.txt " creato e bene la posizione di " Linea 3 " .
Imports System.IO
Module Module1
Sub Main ( ) per
Dim mytxtFile Come File
Dim flRead Come System.IO.StreamReader
Dim FileRead As String Dim
strpos As Integer
flRead = mytxtFile . OpenText ( "C : \\ Data.txt " ) per
FileRead = flRead.ReadToEnd
strpos = InStr ( FileRead , "Linea 3" ) per
MsgBox ( " 'Linea 3 'è in pos " e strpos e " del file . " ) per
flRead.Close ( ) per
End Sub
Fine
Modulo
4
eseguire il programma premendo il tasto " F5 ".
Programmazione © www.354353.com