Yeni Kayıt
Konudaki Resimler
|
Hızlı 
Bildirim
VB.Net Metin Belgesi (.txt)
Sıcak Fırsatlarda Tıklananlar
Editörün Seçtiği Fırsatlar
NexiGo -"Nexigo PS5 Denetleyici Şarj İstasyonu, PS5 Şarj İstasyonu Denetleyici 2 STD Hızlı Şarj LED Ekran Koruma Çip Şarj İstasyonu Çift Sense Şarj İstasyonu, Sony Dual Sense Kablosuz Denetleyici için PS5 Şarj İstasyonu" : Amazon.com.tr: Video Oyunu
https://www.amazon.com.tr/dp/B08T94NJ42?ref=ppx_yo2ov_dt_b_fed_asin_title
9 sa. önce paylaşıldı
Daha Fazla 
Bu Konudaki Kullanıcılar:
Daha Az 
2 Misafir - 2 Masaüstü
Giriş
Mesaj
-
-
birde ben openfiledirectory ile önüme açılan pencereden seçtiğim dosyanın c:/.../.../.../dosya.exe cinsinden adresini nasıl öğrenebilirim -
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. -
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 > -
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 -
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
-
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ı > -
Ya özür dilerim windows 7nin totepadi öyle gösteriyormuş diğer programlarda sorun Çok tşkr. ederim 
Sayfa:
1
Ip işlemleri
Bu mesaj IP'si ile atılan mesajları ara Bu kullanıcının son IP'si ile atılan mesajları ara Bu mesaj IP'si ile kullanıcı ara Bu kullanıcının son IP'si ile kullanıcı ara
KAPAT X
Bu mesaj IP'si ile atılan mesajları ara Bu kullanıcının son IP'si ile atılan mesajları ara Bu mesaj IP'si ile kullanıcı ara Bu kullanıcının son IP'si ile kullanıcı ara
KAPAT X
