VB.Net Metin Belgesi (.txt)

Aşağı Git Tüm Forumlar Web Tasarım - Programlama Yazılım Geliştirme Delphi / C++ /Vb VB.Net Metin Belgesi (.txt)

Bu konudaki kullanıcılar: 1 misafir, 1 mobil kullanıcı

7
Cevap 1135
Tıklama 0
Öne Çıkarma

1. sayfa

VB.Net Metin Belgesi (.txt)

Cevap Yaz

rakimalar

13 yıl

Yüzbaşı

Konu Sahibi

vb.net de Bir Metin belgesinin satır sayısını nasıl öğrenebilirim.(karakter sayısı değil)

DH forumlarında vakit geçirmekten keyif alıyor gibisin ancak giriş yapmadığını görüyoruz.

Üye olduğunda özel mesaj gönderebilir, beğendiğin konuları favorilerine ekleyip takibe alabilir ve daha önce gezdiğin konulara hızlıca erişebilirsin.

Üye Ol Şimdi Değil

Bir Daha Gösterme

rakimalar

13 yıl

Yüzbaşı

Konu Sahibi

birde ben openfiledirectory ile önüme açılan pencereden seçtiğim dosyanın c:/.../.../.../dosya.exe cinsinden adresini nasıl öğrenebilirim

Bu mesaja 1 cevap geldi.

rakimalar

13 yıl

Yüzbaşı

Konu Sahibi

Neyse BEn bunuda Geçtim son olarak seçilen dizin içindeki tüm dosyaların isimlerini öğrenmem lazım.

mesela
c:\test klasör

bunun içinde 1.txt,g.txt,ht.txt dosyaları var diyelim
ben bu dosyaları klasörü seçince içinde ne kadar dosya varsa isimlerini öğrenmek istiyorum.

Bu mesaja 1 cevap geldi.

welrocken

13 yıl

Binbaşı

Metin belgesinin satır sayısını string sınıfını kullanarak öğrenebilirsin.
Bir string değişken tanımladıktan sonra dosyadan okuduğun veriye değişkene at. Daha sonra;

Dim satirSayisi As Integer 
  satirSayisi = 1 
  Dim asd As String 
  asd = TextBox1.Text ' SEN BURADA DOSYADAN OKUMANI YAP 
  While (asd.Contains(vbNewLine)) 
  satirSayisi += 1 
  asd = asd.Substring(asd.IndexOf(vbNewLine) + 1, asd.Length - asd.IndexOf(vbNewLine) - 1) 
  End While

< Bu mesaj bu kişi tarafından değiştirildi welrocken -- 31 Mayıs 2012; 21:57:38 >
Bu mesaja 2 cevap geldi.

welrocken

13 yıl

Binbaşı

Open File Directory dediğin olay OpenFileDialog ise OpenFileDialog1.FileName özelliği zaten yolu da içerir.
Dizindeki tüm dosyalar ise;
Tabi bu kodu uygulayabilmek için ilk önce bir FolderBrowserDialog ve bir de ListBox eklemen lazım, unutmadan bir de projenin en yukarısına "Imports System.IO" ekle (Tırnaksız)

If FolderBrowserDialog1.ShowDialog() = DialogResult.OK Then 
              Dim yol As String 
              yol = FolderBrowserDialog1.SelectedPath 
              Dim di As DirectoryInfo 
              di = New DirectoryInfo(yol) 
              Dim rgFiles() As FileInfo 
   
              rgFiles = di.GetFiles() 
   
   
              For index = 0 To rgFiles.Length - 1 
                  ListBox1.Items.Add(rgFiles(index).Name) 
              Next 
   
          End If

rakimalar

13 yıl

Yüzbaşı

Konu Sahibi

quote:

Orijinalden alıntı: welrocken

Metin belgesinin satır sayısını string sınıfını kullanarak öğrenebilirsin.
Bir string değişken tanımladıktan sonra dosyadan okuduğun veriye değişkene at. Daha sonra;
Dim satirSayisi As Integer 
  satirSayisi = 1 
  Dim asd As String 
  asd = TextBox1.Text ' SEN BURADA DOSYADAN OKUMANI YAP 
  While (asd.Contains(vbNewLine)) 
  satirSayisi += 1 
  asd = asd.Substring(asd.IndexOf(vbNewLine) + 1, asd.Length - asd.IndexOf(vbNewLine) - 1) 
  End While

Hocam Verdiğiniz Kod çok güzel çalışıoyor ama benim Metin belgesi her satırda max 1024 karakteri taşıyor ve haliyle entere basmasamda otomatik aşağı satıra iniyor bu durumda o satırlar yüzünden sapmalar oluyor.Ama normal bir metin belgesinde her satıra 1024 karakter sayısını aşmazsa çok güzel bir şekilde satır sayısını veriyor hatasız bir şekilde.

Benim bir döngüm var ve döngü satır sayısı kadar işlem yaptıracağımdan bu bilgiye ihtiyacım var.

satıra gelen karakter sayısı (1024) taşınca onu 1 satır olarak sayıyor ama 2. satıra inmiş durumda ve 1 satır eksik gösteriyor
bilginiz varsa birde buna çözüm bulabilirmisiniz ?

Dim satirSayisi As Integer
satirSayisi = 1
Dim asd As String
asd = r.ReadToEnd

While (asd.Contains(vbNewLine))
satirSayisi += 1
asd = asd.Substring(asd.IndexOf(vbNewLine) + 1, asd.Length - asd.IndexOf(vbNewLine) - 1)
End While

welrocken

13 yıl

Binbaşı

Bildigim kadariyla soyluyorum satir limit sayisi senin metin etidorunle alakali mesela notepad gibi. Normalde dosyaya kaydederken 2000 karakter bile olsa bir satirdir. Ama editor onu ayirabilir. Yani sen editorde 2 satir goruyorsun ama aslinda 1 satir. Onda bi hata yok.

< Bu ileti mobil sürüm kullanılarak atıldı > Bu mesaja 1 cevap geldi.

rakimalar

13 yıl

Yüzbaşı

Konu Sahibi

Ya özür dilerim windows 7nin totepadi öyle gösteriyormuş diğer programlarda sorun Çok tşkr. ederim

Cevap Yaz

1. sayfa

Tüm Forumlar Web Tasarım - Programlama Yazılım Geliştirme Delphi / C++ /Vb VB.Net Metin Belgesi (.txt)