07-11-2014, 21:37
Bir txt dosyasına, 2 ayrı TextBox yardımıyla, 2 kelimeyi, tırnak içinde ve aralarında virgül olacak şekilde aşağıdaki kodla yazdırıyorum.
Aslında benzer bir mantıkla bu kayıtları geri okuma yaptırabilmem lazım.
Bu kodlarla txt dosyasından veriler...
şeklinde geliyor. Oysa benim istediğim; ilk kelimeyi TextBox1'e, 2. kelimeyi TextBox2'ye yazdırabilmek.
Ancak Input'un doğru kullanım şeklini kaç gündür araştırmama rağmen henüz bulamadım.
Burada 2 sorun var;
1) txt dosyasına yazarken olduğu gibi, satırdan kelimeleri okurken de kelimeleri ayrı ayrı okumalı. Fakat bu kodlar iki kelimeyi bütün olarak okuyor.
2) Satırı okurken tırnaklar ve virgülle birlikte okuyor.
Yapmaya çalıştığım proje, bu noktada tıkandı kaldı. Bu sorunu çözemezsem, ilerlemem mümkün değil. Sorunumu aşmama yardımcı olabilirseniz çok sevineceğim...
Kod:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DosyayaYaz.Click
FileOpen(1, Application.StartupPath & "\TurEng.txt", OpenMode.Append)
PrintLine(1, TextBox1.Text, TextBox2.Text)
FileClose(1)
End SubKod:
"kedi","cat"
"köpek","dog"
"ağaç","tree"Kod:
FileOpen(1, Application.StartupPath & "\TurEng.txt", OpenMode.Input)
Do While Not EOF(1)
TextBox1.AppendText([b]LineInput(1)[/b] & vbNewLine)
TextBox2.AppendText([b]LineInput(1)[/b] & vbNewLine)
Loop
FileClose(1)Kod:
Textbox1.Text'e "kedi","cat"
Textbox2.Text'e "köpek","dog"Ancak Input'un doğru kullanım şeklini kaç gündür araştırmama rağmen henüz bulamadım.
Burada 2 sorun var;
1) txt dosyasına yazarken olduğu gibi, satırdan kelimeleri okurken de kelimeleri ayrı ayrı okumalı. Fakat bu kodlar iki kelimeyi bütün olarak okuyor.
2) Satırı okurken tırnaklar ve virgülle birlikte okuyor.
Yapmaya çalıştığım proje, bu noktada tıkandı kaldı. Bu sorunu çözemezsem, ilerlemem mümkün değil. Sorunumu aşmama yardımcı olabilirseniz çok sevineceğim...
