Text1. Text = oku bunu yapınca 1. satırı textboxa yazıyor. Eğer birinci satırda " " ile biten birşey varsa bunu tanımlamam lazım. Bu iki arayı litstboxa ekletmem lazım. Ama ben " " ile bitip bitmediğini anlıyamıyorum. Anlasam da " "arasını nasıl seçeceğimide bilmiyorum. İkinci satırada geçemiyorum bu cabası

Print: Yazılım: Print # dosyano Dosyan : Yazılacak dosyanın numarasıdır. Değişken formatı: Print komutunun dosyaya yazan bu formatı ekrana çıkış yapan Print gibidir. Örnek 12.2 : Dim adi, tel, adres Open "deneme" For Output As # 1 adi = "Bahadır Işleyen" tel = "3456432" adres = "Elektronik-Bilgisayar Bölümü" Print

Input: Yazılım: Input # dosyano, değişkenlistesi Dosyano: Okunacak dosyanın numarasıdır. Değişkenlistesiosyadan okunacak kayıtların atandıkları değişkenlerdir. Örnek 12.3 : Dim adi, tel, adres Open "deneme" For Output As # 1 Input

12.4. Dosyaları Kapatmak Hangi modda açılırsa açılsın dosya Close komutu ile numarası verilerek kapatılır. Yazılım: Close # dosyano Not : Açılacak bütün dosyaları kapatmak için Reset komutu kullanılabilir. 12.5. Dosya Sonu Kontrolü Numarası verilen dosyanın sonuna gelinip gelinmediğini kontrol eder. Yazılım EOF 12.6. Dosya Boyu Kontrolü Numarası verilen dosyanın byte olarak uzunluğunu verir. Yazılım LOF 12.7. Aktif Kaydı Değiştirmek Dosya içerisinde aktif kaydı veya karakteri gösteren bir gösterici vardır. Kayıt numarası verilmeden yapılan yazma ve okuma işlemleri bu göstergecin bulunduğu yerden yapılır. Yapılan yazma ve okuma işlemleri de göstericiyi okunan veya yazılan kaydın sonuna taşır. Dosya Random modla açılmışsa bu gösterici kayıt numarasıdır, diğer modlarda açılmış ise bu gösterici dosya içindeki karakterin konumudur. Yazılım Seek Dosya numarası ile verilen dosyadaki göstericinin konumu öğrenilebilir. Bu da dosyaya yazdırma metotlarıdır Kod: ListBox İçeriğini Kaydetmek! List Box İçeriğini Baştan Sona Kaydetmek! İlk Önce Aşağıdaki Kodu Bir Modülün İçine Yazınız! Public Sub listk On Error Resume Next Dim lngSave As Long If FileName$ = "" Then Exit Sub Open FileName$ For Output As

gibi). Kayıtuzunluğu: Dosyanın açım moduna göre bu parametrenin iki farklı anlamı vardır ve 32767 den büyük olamaz. Binary modunda açılan dosyalarda bu parametrenin anlamı yoktur. Dosya Random modu ile açılmışsa bu sayı her kaydın uzunluğunu belirler. Verilmezse 128 karakter kabul edilir. Dosya Random modundan farklı bir modda açılmışsa bu sayı karakter harflerinin boyutunu belirler. Verilmezse 512 karakter olarak kabul edilir. 12.2. Rasgele Erişimli Dosyaya Yazma ve Okuma Random ve Binary modu ile açılan dosyalara kayıtlar Put komutu ile yazılır ve Get komutu ile okunur. Yazılım: Put dosyano, , değişken Get dosyano, , değişken Değişken: İçeriği yazılacak değişken. Dosyano: Yazılacak veya okunacak dosyanın numarası Kayıtno: Yazılacak veya okunacak değişkenin dosya içindeki kayıt numarası. 12.3. Sıralı Erişimli Dosyaya Yazma ve Okuma Output ve Append modu ile açılan dosyalara Write veya Print komutu ile yazma yapışır. Write: Yazılım : Write # dosyano Dosyano: Yazılacak dosyanın numarasıdır. Bu komut Open komutu ile belirlenen dosya numarasıdır. Değişkenler: Dosyaya yazılacak olan değişken listesi araya virgüller konarak yazılır. Örnek 12.1 : Dim adi, tel, adres Open "deneme" For Output As # 1 adi = "Bahadır Işleyen" tel = "3456432" adres = "Elektronik-Bilgisayar Bölümü" Write

edildi ya yardım daha ne olacak. o verilen döküman içerisinde senin istediğin var. harşeyi hazır bekleme bazı şeyleri kendin üretmelisin. madem öyle direk projeji yaz hazırlayıp gönderelim senin istediğin bu heralde. saygılarımla...

tahminen bu şekilde alabilirsin a=mid(oku,1,1) if a="[" then uz=len aradakiyazi=mid(oku,2, uz-2) end if alt satırada kayıt numarasını arttırarak ulaşırsın sanırım... buna benzer bişeyler yap eger bunları iyi bilmiyosan e-book indir oku hazır kodlarla program yazman bişeye yaramaz... IQ 146 imişşş oku anlarsın işte -

Input

For lngSave& = 0 To List. ListCount - 1 Print

Tekrar merhaba. Bir metin belgesi düşünelim. Satır satır yazılar var. Kimi satırlarda şu iki karakter içine alınmış yazılar yazıyor. Örnek veriyorum yüzölçümü=500m nüfusu=455.000 vs vs x x x x x toplam 20 satır sonra bir başka şey başlıyor x x x x x 1. Şimdi benim yapmak istediğim şeyler şunlardır. O metin belgesindeki içinde ayrılmış tüm yazıları bir listbox'a yazdırmak istiyorum. 2. örneğindeki dan sonraki 2. satırda bulunan nüfusu= kısmından sonraki karakterleri yok sayıp kendi belirlediğim rakamları girmek istiyorum. Bunu yapınca şöyle olacak yüzölçümü=500m nüfusu=benim belirlediğim şey xx x x x x Bu döngünün bir sonraki içerisinde ayrılmış kelimeyi bulup akebindeki 2. satırda bulnan nüfusu= kısmından sonrakileri yok sayıp benim yazdırmak istediğim rakamları yazdıracak Bunun son 'i yapana kadar devam etmesini istiyorum. Yardım edebilirseniz çok sevinirim. Biraz zor galiba ama bilemiyorum yani

Kaç gün geçti yardım yok Eskiden hiç böyle olmazdı :yawn: :flowers:

Gördüğün gibi yardım istediğim konu bi halta yaramaz. Ben hazır proje istemiyorum. Yapmak istediğim şeyi yapabilmek için ona yakın bir örnek hakkında yardım istedim. zorlasamda en iyi yapabildiğim şey şu Dim oku As String Open App. Path & "\deneme. txt" For Input As

Line Input: Yazılım: Line Input #dosyano, değişken Dosyano: Okunacak dosyanın numarası Değişken: Dosyadan Okunacak kaydın aktarılacağı değişken. Bu komut Input komutundan farklı olarak satır sonu karakterlerine kadar olan karakterleri bir kayıt kabul eder ve bu karakterleri değişkene aktarır. Örnek 12.4: Dim adi, tel, adres Open "deneme" For Output As # 1 Line Input

Bu dökümanı okumuştum. Tekrar okudum. Fakat IQ'mun 146 olmasına karşın benim sorumun cevabını bunun içinde bulamadım

End Sub Artık Fonksiyonumuzu Kullanabiliriz Call listk("savembenim. txt", List1) Bu kod ile List1 in içeriğini programla aynı klasor içinde savembenim. txt klasörüne kaydediyoruz. Anladınız sanırım

Manisalımısın yoksa sen Bu tür şeyler kolaydır. Sen bi ilk önce forumu ara. Dosyalama işlemleri vesaire bul onları bi anla ve ondan sonra da senin istediğin gibi listelenecektir. Şimdi ben yazayım diyeceğim ama uzun hikaye şimdi bizim de projelerimiz var dimi Dosyalama işlemlerini arayamam dersen buyur Kod: VB'DE DOSYALAMA İŞLEMLERİ Programda bilgilerin kalıcı olarak saklanabilmesi için diğer dillerde olduğu gibi VB'de de dosya oluşturma komutlarından yararlanılmaktadır. Dosyalar yapılan işe göre iki gruba ayrılırlar: 1. Rasgele Erişimli Dosyalar 2. Sıralı Erişimli Dosyalar 12.1. Dosya Açmak Open "Dosya Adı" As dosya no Dosya Adı : Açılacak veya oluşturulacak dosyanın adı. Açma Modu : Dosyanın açma modunu belirler. Bu modlar; Random : Dosyadaki her kayıt, kayıtuzunluğu belirlenen uzunluktaki alanlara yazılır. Dosyaya yazılan kayıtlar kayıt uzunluğu ile belirlenen sayıdan küçük de olsa kayıtuzunluğu kadar yer kaplar. Böylece dosyadaki her kaydın uzunluğu ile aynı olacağından dosyada istenen kayda numarası verilerek ulaşılır. Binary : Dosya bu modda açılırsa dosya içerisindeki her karaktere, karakterin numarası verilerek ulaşılır. Input : Dosya okumak için sıralı erişimli açılır. Output : Dosya okumak için sıralı erişimli okunur. Append : Output ile aynı görevi görür. Ancak dosya göstericisi dosyanın sonunda duracaktır ve yazılan kayıtlar dosyanın sonuna eklenecektir. Açılmak istenen dosya mevcut değilse Append, Binary, Output veya Random modlarında bu dosya oluşturulur. Yani bir dosyayı Input modunda açabilmek için o dosyanın var olması gerekir. Aksi takdirde hata oluşacaktır. ErişimModu: Dosya açılırken dosyanın ne için açıldığı belirtilebilir. Bu parametre şu üç kelimeden biriyle kullanılır. Read : Dosya sadece okumak için açılır. Write : Dosya sadece okumak için açılır. Read Write: Dosya hem okumak hem de yazmak için açılır. Lock: Dosya açılırken istenilen diğer programların bu dosyaya erişimi engellenebilir. Shared: Açılan dosyaya diğer uygulamalar tarafından okuma ve yazma yapılabilir. Read : Okumaya karşı kilitler. Dosya açık olduğu sürece diğer programlar bu dosyadan okuma yapamazlar. Write : Dosyayı yazmaya karşı kilitler. Read Write : Dosyayı hem yazmaya hem de okumaya karşı kilitler. Dosyano: Dosya açılırken o dosyaya 1 ile 255 arasında bir numara verilir. Bu dosyada yapılan işlemlerde bu numaralar kullanılır. (Get