lostyazilim

VB2010'da txt dosyasında bir satırda bulunan 2 kelimeyi ayrı ayrı nasıl okutabilirim?

6 Mesajlar 1.351 Okunma
lstbozum
smsonayhizmeti

Aday Aday WM Aracı Kullanıcı
  • Üyelik 26.03.2014
  • Yaş/Cinsiyet 61 / E
  • Meslek İnş. Müh.
  • Konum İstanbul Anadolu
  • Ad Soyad A** Y**
  • Mesajlar 11
  • Beğeniler 0 / 1
  • Ticaret 0, (%0)
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.
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 Sub

"kedi","cat"
"köpek","dog"
"ağaç","tree"

Aslında benzer bir mantıkla bu kayıtları geri okuma yaptırabilmem lazım.
FileOpen(1, Application.StartupPath & "\TurEng.txt", OpenMode.Input)
Do While Not EOF(1)
TextBox1.AppendText(LineInput(1) & vbNewLine)
TextBox2.AppendText(LineInput(1) & vbNewLine)
Loop
FileClose(1)

Bu kodlarla txt dosyasından veriler...
Textbox1.Text'e "kedi","cat"
Textbox2.Text'e "köpek","dog"
ş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...
 

 

wmaraci
reklam

kodcu kodcu Üyeliği Durdurulmuş Banlı Kullanıcı
  • Üyelik 20.10.2014
  • Yaş/Cinsiyet 32 / E
  • Meslek Öğrenci
  • Konum İzmir
  • Ad Soyad Y** D**
  • Mesajlar 103
  • Beğeniler 9 / 27
  • Ticaret 0, (%0)
Dim dizi As String() = System.IO.File.ReadAllLines("yazi.txt")
TextBox1.Text = dizi(1).ToString()


dizi()
parentez arasına yazdıgın satır anlamına geliyor.

Tırnak olayı içinse parçalama yapman lazım. yani şöyle

Dim dizi As String() = System.IO.File.ReadAllLines("yazi.txt")
Dim parcala As String() = dizi(1).Split(Chr(34))
TextBox1.Text = parcala(3).ToString() // Çıktısı dog olacaktır
 

 

Aday Aday WM Aracı Kullanıcı
  • Üyelik 26.03.2014
  • Yaş/Cinsiyet 61 / E
  • Meslek İnş. Müh.
  • Konum İstanbul Anadolu
  • Ad Soyad A** Y**
  • Mesajlar 11
  • Beğeniler 0 / 1
  • Ticaret 0, (%0)
@kodcu, İlginize teşekkür ediyorum.

Kodlarınızı uyguladığımda aşağıdaki gibi bir hata aldım.

txt dosyasından her defasında 1 satır ve satırdaki 2 kelimeyi ayrı ayrı okutmam ve her 2 TextBox'a o 2 kelimeyi ayrı ayrı yazdırmam lazım. Kodu bu şekilde revize edebilirseniz mutlu olurum...

 

 

yakupqqq yakupqqq Kimlik Onayı Bekliyor Banlı Kullanıcı
  • Üyelik 25.10.2014
  • Yaş/Cinsiyet 33 / E
  • Meslek üniversite öğrencisi
  • Konum İstanbul Anadolu
  • Ad Soyad Y** K**
  • Mesajlar 963
  • Beğeniler 33 / 285
  • Ticaret 11, (%100)
okunuğu ilk satır "kedi","cat" şeklinde olacak ve oku tuşuna basınca
textbox1: kedi
textbox2: cat şeklindemi görmek istiyorsunuz?

Ek Olarak: okunuğu ilk satır "kedi","cat" şeklinde olacak ve oku tuşuna basınca
textbox1: kedi
textbox2: cat şeklindemi görmek istiyorsunuz?
 

 

wmaraci
wmaraci

Aday Aday WM Aracı Kullanıcı
  • Üyelik 26.03.2014
  • Yaş/Cinsiyet 61 / E
  • Meslek İnş. Müh.
  • Konum İstanbul Anadolu
  • Ad Soyad A** Y**
  • Mesajlar 11
  • Beğeniler 0 / 1
  • Ticaret 0, (%0)

yakupqqq adlı üyeden alıntı

okunuğu ilk satır "kedi","cat" şeklinde olacak ve oku tuşuna basınca
textbox1: kedi
textbox2: cat şeklindemi görmek istiyorsunuz?

Ek Olarak: okunuğu ilk satır "kedi","cat" şeklinde olacak ve oku tuşuna basınca
textbox1: kedi
textbox2: cat şeklindemi görmek istiyorsunuz?


txt dosyası içine yazdırdıklarım;
"kedi","cat"
"köpek","dog"
"ağaç","tree"

formatında.

Bu verileri txt dosyasından okuturken;
Textbox1.Text = kedi
Textbox2.Text = cat

şeklinde getirmesini istiyorum.

Butona ikinci kere tıkladığımda;
Textbox1.Text = köpek
Textbox2.Text = dog

şeklinde getirsin istiyorum...
 

 

yakupqqq yakupqqq Kimlik Onayı Bekliyor Banlı Kullanıcı
  • Üyelik 25.10.2014
  • Yaş/Cinsiyet 33 / E
  • Meslek üniversite öğrencisi
  • Konum İstanbul Anadolu
  • Ad Soyad Y** K**
  • Mesajlar 963
  • Beğeniler 33 / 285
  • Ticaret 11, (%100)
visual basicte uzun zamandır kod yazmadığım için unuttum ben c# da yazdım. kodları basic e dönüştürürseniz, veri kısmına okuduğunuz ilk dize elemanını yani "kedi","cat" yazdırırsanız gerisi çalışacaktır



Ek Olarak: 1. ilk veri alınır
2. virgülün konumu belirlenir.
3.ilk kısım substring ile alınır.
4.alınan yer veriden silinir
5.geri kalan cat kısmı alınır.

kelimelerin uzunlukları fark etmeksizin çalışır.
 

 

wmaraci
Konuyu toplam 1 kişi okuyor. (0 kullanıcı ve 1 misafir)
Site Ayarları
  • Tema Seçeneği
  • Site Sesleri
  • Bildirimler
  • Özel Mesaj Al