Rastgele erişimli olarak oluşturduğum txt dosyasınayazdığım veriler icin 160 karekter tanımladım ve kayıtları yapıyorum ama bunları okuyup text kutusunda gostermek istediğimde ilk kayıt duzgun gorunmesine rağmen diğer kayıtlar text kutusunda yarım veya hic gorunmuyor.asıl sorunum sanırım veri okumada sorun olması.Oluşturduğum dosyayı aynı şekilde acıyorum.Komutum aşağıdadır. Yardımcı olursanmız sevınırım

Private Type bat
e As String * 160
n As String * 4
End Type
Dim klm As bat
******************************
Public Sub Command1_Click()
Open "c:\sen.txt" For Random As 1 Len = Len(klm)
ds = ds + 1
Get #1, ds, klm.e
Text1 = klm.e
End Sub
__________________