hanziri
Administrator
Dołączył: 05 Kwi 2006
Posty: 126
Przeczytał: 0 tematów
Skąd: Kalisz
|
 Wysłany: Sob 22:40, 15 Lip 2006 Temat postu: vb & .txt |
|
|
program pokazuje jak można otwierać plik tekstowy, wyświetlić jego zawartość oraz zapisać zmieniony.
| Kod: |
'--------------------------
Module Module1
Sub Main()
Dim nrpliq, linie As Integer
Dim dana, dane2, czeq As String
Do
nrpliq = FreeFile()
Console.WriteLine("tresc pliQ:")
Console.WriteLine("------------------------------")
FileOpen(nrpliq, "tekstovy.txt", OpenMode.Input)
Do While Not EOF(nrpliq)
dana = LineInput(nrpliq)
Console.WriteLine(dana)
Loop
FileClose()
Console.WriteLine("------------------------------")
Console.ReadLine()
Console.Write("wpisz nową tresc: ")
dane2 = Console.ReadLine()
nrpliq = FreeFile()
FileOpen(nrpliq, "tekstovy.txt", OpenMode.Output)
Write(nrpliq, dane2)
FileClose()
Console.WriteLine("------------------------------")
Console.Write("koniec?: ")
czeq = Console.ReadLine()
Loop Until LCase(czeq) = "tak"
End Sub
End Module
'-----------------------------------------
|
|
|
