- 6 Ocak 2013
- 900
- 0
Vb 6.0'da yada vb.net'de programa nasıl txt dosyası ekleyebiliriz.
Txt dosyasını programa nasıl bağlayabiliriz ?
Txt dosyasını programa nasıl bağlayabiliriz ?
Programa Txt Ekleme
- Konbuyu başlatan Alcatraztc
- Başlangıç tarihi
txt dosya okuma diyosan
vb.net
Imports System.IO
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim file As String
Dim tmp As String
Dim fs As FileStream = New FileStream("c:\\xx.txt", FileMode.Open)
Dim r As StreamReader = New StreamReader(fs)
TextBox1.Text = ""
Do
tmp = r.ReadLine
TextBox1.Text = TextBox1.Text & tmp & Microsoft.VisualBasic.ControlChars.CrLf
Loop Until tmp Is Nothing
r.Close()
fs.Close()
End Sub
*************************************************************
vb6
Private Sub Command1_Click()
Text1.Text = dosyaac("c:\\xx.txt")
End Sub
Function dosyaac(dosyaadi$) As String
Dim dosya_no As Integer
dosya_no = FreeFile
Open dosyaadi$ For Input As #dosya_no
dosyaac = Input$(LOF(dosya_no), dosya_no)
Close #dosya_no
End Function
vb.net
Imports System.IO
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim file As String
Dim tmp As String
Dim fs As FileStream = New FileStream("c:\\xx.txt", FileMode.Open)
Dim r As StreamReader = New StreamReader(fs)
TextBox1.Text = ""
Do
tmp = r.ReadLine
TextBox1.Text = TextBox1.Text & tmp & Microsoft.VisualBasic.ControlChars.CrLf
Loop Until tmp Is Nothing
r.Close()
fs.Close()
End Sub
*************************************************************
vb6
Private Sub Command1_Click()
Text1.Text = dosyaac("c:\\xx.txt")
End Sub
Function dosyaac(dosyaadi$) As String
Dim dosya_no As Integer
dosya_no = FreeFile
Open dosyaadi$ For Input As #dosya_no
dosyaac = Input$(LOF(dosya_no), dosya_no)
Close #dosya_no
End Function
Son düzenleme:
