Visual Basic 6.0 fornisce un modo semplice per aprire i file di testo e leggere il loro contenuto in una casella di testo sullo schermo, così come scrivere un nuovo testo in un file. Solo undici linee di codice sono necessari per la prima fase, e dieci sarà sufficiente per la seconda operazione. Il processo utilizza le funzioni di ingresso e uscita in Visual Basic, così come una piccola finestra per raccogliere informazioni da parte dell'utente.

istruzione

1 Aprire Visual Basic 6.0, fare clic su File e scegliere Nuovo progetto. Selezionare EXE standard dalla lista dei modelli. Fare doppio clic sul controllo TextBox nella Casella degli strumenti sulla sinistra per aggiungere questo al modulo. Modificare l'altezza del modulo nel riquadro Proprietà sulla destra a 5000.

2 Apportare le seguenti modifiche alle proprietà TextBox:
Altezza = 3000
Multilinea = true
Barre di scorrimento = Entrambi
Width = 3000

3 Fare doppio clic sul controllo Button nella Casella degli strumenti. Modificare la proprietà Caption per leggere il file. Ripetere questa operazione per aggiungere un secondo controllo Button, modificando la proprietà Caption qui per scrivere file.

4 Fare doppio clic sul pulsante Leggi File per aprire la finestra di codice. Inserisci questo codice nella pagina di visualizzazione di codice:
Funzione ReadFile ()
Dim ReadFileName As String
ReadFile = InputBox ( "Inserire il nome del file da leggere:")
Aprire ReadFile in lettura in 1 #
ReadFile = Ingresso $ (OL (1), 1)
Text1.Text = ReadFile
Close # 1
End Function
Private Sub Command1_Click ()
ReadFile
End Sub

5 Fare doppio clic sul pulsante Write File per aprire la finestra di codice. Inserisci questo codice:
WriteFile function ()
Dim WriteFileName As String
WriteFileName = InputBox ( "Inserire il nome del file")
Aprire WriteFileName per l'output come 2 #
Stampa # 2, Text1.Text
Close # 1
End Function
Private Sub Command2_Click ()

WriteFile

End Sub

6 Eseguire il programma premendo F5 e fare clic sul comando Leggi file prima. Inserire il nome di un file di testo noto, tra cui il suffisso .txt. Il file dovrebbe trovarsi nel controllo TextBox. Se ora si fa clic su Write file e fornire un nome diverso, si creerà un nuovo, ma duplicato file. In alternativa, se si elimina il testo o basta cliccare su Leggi file prima di caricare un file e quindi si digita qualcosa di nuovo, è possibile creare un nuovo file.

Consigli e avvertenze

• Per aggiungere nuovo materiale per un file esistente, modificare la riga nella sezione WriteFile da Open WriteFileName per l'output come 2 # per aprire WriteFileName Per Append come # 2.
• È necessario utilizzare un diverso numero di file per ciascun file aprire e chiudere ogni file una volta terminato.
• Modificare la dimensione della casella di testo per soddisfare le proprie esigenze.
• Per un'applicazione più robusto, sarebbe utile aggiungere le routine di intercettazione degli errori nel caso in cui l'utente mistypes un nome di file o ha già un file aperto.