1 Ανοίξτε το Notepad και πληκτρολογήστε τα ακόλουθα :
Γραμμή 1
Γραμμή 2
Γραμμή 3
Γραμμή 4
Γραμμή 5
Αποθηκεύστε το αρχείο στο " C : \\ " ως " DATA.TXT . " 2
Ανοίξτε το Microsoft Visual Basic Express και κάντε κλικ στο "New Project ... " στο αριστερό τμήμα της οθόνης σας . Κάντε διπλό κλικ στο " Εφαρμογή κονσόλας " . Πατήστε το πλήκτρο " Ctrl " και " A " και στη συνέχεια πατήστε το κουμπί " Διαγραφή" για να διαγράψετε όλα τα υπάρχοντα κώδικα .
Εικόνων 3
Αντιγράψτε και επικολλήστε τον παρακάτω κώδικα σε λειτουργική μονάδα " Module1.vb " σας για να συμπιέσει το διαβάσετε αρχείο " DATA.TXT " που δημιουργήσατε και να ρυθμίσετε τη θέση της " γραμμής 3 " .
Εισαγωγές System.IO
Module Module1
Sub Main ( )
Dim mytxtFile Όπως File
Dim flRead Όπως System.IO.StreamReader
Dim fileRead Όπως String Dim
strpos As Integer
flRead = mytxtFile . OpenText ( " C : \\ DATA.TXT " )
fileRead = flRead.ReadToEnd
strpos = InStr ( fileRead , " Γραμμή 3 " )
MsgBox ( " " Γραμμή 3 ' είναι pos " & strpos &" του αρχείου . " )
flRead.Close ( )
End Sub
End Module
Η 4
Εκτελέστε το πρόγραμμα πιέζοντας το κουμπί " F5 ".
Η
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα