Listeyi Kaydet - R10.net

24-04-2016, 15:32:50

Üyeliği durduruldu

Merhaba arkadaşlar, visual basicte

Private Sub Command1_Click()
On Error Resume Next
Dim dosya, Oku, mail
CommonDialog1.Filter = "Metin Dosyaları | *.txt"
CommonDialog1.ShowSave
dosya = CommonDialog1.FileName

Open dosya For Append As #1
 
For I = 0 To List1.ListCount - 1
        Print #1, List1.List(I)
Next
 
Close #1


End Sub

Şu şekilde listeyi kaydetme butonu yaptım. Fakat istediğim şey şu, diyelimki 2000 kişilik bir listemiz oluştu. Listeyi kaydete tıkladığım zaman bana bir seçenek sunacak

Listeler Kaça Bölünsün? gibi..
Misal içersine 250 yazıcam kaydet dediğimde o toplamdaki 2000 kişinin ilk 250 kişisi dosyaismi1.txt devamındaki ikinci 250 kişi dosyaismi2.txt devamındaki 250 kişi dosyaismi3.txt diye bu şekilde kaydedilecek.. Bunu nasıl yapabilirim?

24-04-2016, 16:17:56

#2

yakupqqq

Kimlik doğrulama veya yönetimden onay bekliyor.

kurduğunuz cümle yanlış. bir kullanıcıya listenin kaça bölünmesini mi isteyeceksiniz yoksa kaçlık gruplara bölünmesinimi isteyeceksiniz.

a=toplam kişi sayısı...2000
b=kullanıcıdan bölmesini istediği grup....250
c=a/b....8 eder.
x=sabit

for döngüsü c kadar yani 8 kere döner. ayrıca içteki for döngüsüne 0 --->b kadar döner ve döngü sonunda x=x+b dersen ve listeyi kaydetle+c.txt şeklinde liste içteki döngüde kaydedilir.

x=x+b
1.dönüşte 0-250 arası
2.dönüşte 250-500 arası vs. gider.

24-04-2016, 16:52:59

#3

~~Diabolist~~

Üyeliği durduruldu

yakupqqq adlı üyeden alıntı: mesajı görüntüle

kurduğunuz cümle yanlış. bir kullanıcıya listenin kaça bölünmesini mi isteyeceksiniz yoksa kaçlık gruplara bölünmesinimi isteyeceksiniz.

a=toplam kişi sayısı...2000
b=kullanıcıdan bölmesini istediği grup....250
c=a/b....8 eder.
x=sabit

for döngüsü c kadar yani 8 kere döner. ayrıca içteki for döngüsüne 0 --->b kadar döner ve döngü sonunda x=x+b dersen ve listeyi kaydetle+c.txt şeklinde liste içteki döngüde kaydedilir.

x=x+b
1.dönüşte 0-250 arası
2.dönüşte 250-500 arası vs. gider.

Bilgi için teşekkürler hocam fakat yapamadım yinede sağolun vakit ayırdığınız için