προωθήσει " Microsoft Visual Basic Express " και κάντε κλικ στο "New Project " στο "Start Page " καρτέλα . Κάντε κλικ στο " Visual Basic " κάτω " Εγκατεστημένα πρότυπα " και κάντε διπλό κλικ στο "Console Εφαρμογή " για να δημιουργήσετε ένα νέο έργο κονσόλα 2
να αναγνωρίσει τις ακόλουθες ονομάτων στον τομέα δηλώσεις της λειτουργικής μονάδας : .
Εισαγωγές Σύστημα
Εισαγωγές System.IO
Εισαγωγές System.Text
εικόνων 3
αντιγραφή και επικόλληση του παρακάτω κώδικα κάτω από το " Sub Main ( ) " για να δημιουργήσετε ένα προσωρινό αρχείο με κάποιο κείμενο :
Dim filePath As String = Path.GetTempFileName ( )
Dim FILESTREAM Όπως FileStream = File.open ( filePath , _
FileMode.Open , _
FileAccess.Write , _
FileShare.None )
Dim writeInfo Όπως Byte ( ) = Νέα UTF8Encoding ( True ) . GETBYTES ( "Write δεδομένα στο αρχείο . " )
fileStream.Write ( writeInfo , 0 , writeInfo.Length )
fileStream.Close ( )
Η 4
αντιγραφή και επικόλληση του παρακάτω για να ανοίξετε το αρχείο που δημιουργήθηκε στο προηγούμενο βήμα και να εμφανίσει τα περιεχόμενα μέσα από το παράθυρο της κονσόλας :
FILESTREAM = File.open ( filePath , FileMode.Open )
Δημ. byteInfo (1024 ) Όπως Byte
Dim tmpStr Όπως UTF8Encoding = Νέα UTF8Encoding ( True )
Do While fileStream.Read ( byteInfo , 0 , byteInfo.Length ) >
5
Πατήστε " F5 " για να εκτελέσετε το πρόγραμμα και εμφανίζει ένα πλαίσιο μηνύματος με το περιεχόμενο του αρχείου .
Η
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα