0QvSx. Forumlar Programlama Programlama Dilleri Çok eski bir web tarayıcısı kullanıyorsunuz. Bu veya diğer siteleri görüntülemekte sorunlar yaşayabilirsiniz..Tarayıcınızı güncellemeli veya alternatif bir tarayıcı kullanmalısınız. *.dat dosyasının boş olup olmadığını nasıl tespit edebilirim ? Konuyu başlatan A_day Başlangıç tarihi 12 Mart 2014 Bu konuyu okuyanlar 1 Katılım 4 Şubat 2014 Mesajlar 41 Reaksiyon puanı 0 Puanları 0 Bir dat dosyasının boş olup olmadığını kontrol ettirmek istiyorum. Eğer hiç kayıt yoksa bunu haber vermeli. Aşağıdaki gibi yazdım ama hata verdi. Doğru kodu yazmama yardımcı olur musunuz ? Open + "\ For Input As 1 Input 1, Turkce, English i = i + 1 Close 1 If i = 1 Then 'Liste boş demektir... = "Ana Listede kayıt yok ! Başa dön !" End If ________ 2 Katılım 15 Temmuz 2011 Mesajlar 505 Reaksiyon puanı 22 Puanları 18 Anladığım kadarıyla text dosyadan kayıt okuyorsun. FileLen fonksiyonu ile dosya boyutu 0 ise kayıt yok anlamındadır. İkişerli guruplar şeklinde veri okuduğunda kontrol edilmesi zor olabilir. On Error ile kodu düzenlemekte zorlanabilirsin bunun yerine satır satır kayıt okuyup guruplandırabilirsin. Aşağıdaki kodu bir incele yazdıklarından anladığım kadarıyla yorum yaptım. Dim FileName As String Dim FileLength As Long Dim Turkce As String Dim English As String Dim Buffer As String Dim fh As Integer Dim i As Integer Const RG = 2 FileName = + "\ If DirFileName vbNullString Then FileLength = FileLenFileName If FileLength = 0 Then MsgBox "Hiç kayıt bulunamadı" Else 'Kayıt oku... fh = FreeFile Open FileName For Input As fh i = 0 Do While Not EOFfh Input fh, Buffer i = i + 1 Select Case i - 1 Mod RG Case 0 Turkce = Buffer Case 1 English = Buffer End Select If i Mod RG = 0 Then 'Kayıtları ekrana yaz MsgBox Turkce + "," + English End If Loop If i Mod RG > 0 Then MsgBox "Hatalı kayıt var" End If Close fh End If Else MsgBox "Dosya bulunamadı" End If Konuyu başlatan 3 Katılım 4 Şubat 2014 Mesajlar 41 Reaksiyon puanı 0 Puanları 0 Ellerinize sağlık, kodlarınız işimi gördü, sağolun... Benzer konular Forumlar Programlama Programlama Dilleri Mevlid hadis nedir?Peygamber Efendimiz sav'in doğduğu geceye Mevlid Gecesi deniyor. … Mevlid; doğum zamanı, doğulan yer ve zaman anlamına gelmektedir. Mevlid Kandili, iki cihan güneşi alemlere rahmet olarak gönderilen Hz. Muhammed Mustafa'nın dünyaya gelişinin yıl Kandili fazileti nedir?Peygamberin doğumunu kutladığımız, onun bireysel ve toplumsal hayatımızı aydınlatan insanlık ve merhametini, insaf ve adaletini, sabır ve metanetini, kerem ve cömertliğini, kısaca insanlığa sunduğu değerleri anlayıp hayatımızı onun yüce ahlâkıyla güzelleştireceğimiz bir tazelenme kandilinde ne yapılır?Mevlid Kandili günü İslam nebisinin doğum günü salavatlarla, dualarla ve zikirlerle kutlanır. Mevlid Kandili 17 Ekim Pazar gecesi idrak edilecek. Müslümanlar Mevlid Kandili günü günü dua ederek, nafile namazı kılarak ve oruç tutarak geçirir. Bu gece aynı zamanda Rebiülevvel ayının onikinci Kandili hangi dualar okunur?500 kere La ilahe illa ente sübhaneke inni küntü minez-zalimin. 100 kere Salevat-ı şerife, 100 kere Salevat-ı şerife, 500 kere La havle ve la kuvvete illa Hadisler Nelerdir?Kırk Hadis 40 Hadis, kainata tüm mucizeleriyle ve eşi benzeri olmayan özellikleriyle gelerek Cenab-ı Hakk'ın imtihandan geçirdiği insanların bilerek veya farkında olmadan çeşitli hatalara sürüklenmesini ve yanlış işlere bulaşıp kötü amel işlemesini önlemek maksadıyla ağzından döküldüğü ışık tutan sözlerden nedir ne anlama gelir?Mevlîd, İslâm edebiyatında Muhammed'in doğum gününde yapılan kutlama merasimlerine, bu merasimlerde okunmak üzere yazılan ve bestelenen manzum şeklindeki edebî metinlere verilen isim. … Türkçeye Arapça'dan girmiş olan "mevlid", "Peygamberin doğum günü" anlamında da Kandili hangi tesbihler çekilir?500 kere La ilahe illa ente sübhaneke inni küntü minez-zalimin. 100 kere Salevat-ı şerife, 100 kere Salevat-ı şerife, 500 kere La havle ve la kuvvete illa billahil-aliyyil-azıym. Eğer Ziegler denen futbol cahilini ilk 11 e alıp , bu takımın as stoperini olmazsa olmazını bel kemiğini çıkarıp yerine bir başka futbol cahili lakabı Deli Bekir i oynatan teknik direktör iyi teknik direktör değildir. Yani bir kalecinin ellerini kesip hadi topu kurtar demesi gibi birşey bu . Ve yedeklere sonradan girip maçın skorunu değiştirecek oyuncu almayan. Oyuncu değişiklikleri ise takımın ileri geri çalışan iyi oynasa kötüde oynasa ama ileriye topu çıkartan atağı destekleyen 2 adamı aynı anda çıkarıp yerine lakabı Kazma olan Mehmet Topal ı oyuna alan. Bu değişiklik tamamen orta sahayı göçertti. Ve istifa edip sözünden dönen. Alex'i tamamen kişisel sebeblerden gönderen. Bas bas bağıran oyun kurucu mevkisine adam almayan. Çok gereksiz bir insansın Aykut kocaman senden nefret ediyorum. Yani yakında ölmen için bile dua edebilirim. Hatta ölüm haberini alır almaz şarkılar müzikler açıp oynayabilirim. Şu bizi getirdiğin duruma bak. Yazıklar olsun sana . . . Bir takım nasıl bitirilir nasıl batırılır nasıl mağlup olunur. Neyse sana Selçuk'unla Bekir'inle Canerin'le Topal'ınla iyi günler dilerim . . . En yakın zamanda istifa etmen dileğiyle . . . Sana teknik direktör yapmıyorsn resmen ajanlık yapıyorsun paso galatasaraya çalışıyorsun. benim yorumlamam budur . . .

tasarruf tesvik fonu olup olmadigini nasil ogrenebiliriz