Bana Biri Numara Üretebilir Mi ?
-
Merhabalar,
Olduğum yerde ne vb ne iis hiçbişey yok. Üretemiyorum beyler.
530-532-533-534-535-536-537-538-539-541-542-543-544-545-546-547-548-550-553-554-555-556
ile başlayan cep telefonu numaralarının tümünü üretmem gerekiyor. Ve bunları maximum 10 binlik txt ler halinde kaydetmem gerekiyor.
Talep edilirse ücreti ile de yapılabilir, aciliyeti mevcut.
skype : destek@sanatnetwork.com
-
http://phpfiddle.org
-
aciliyet durumu ne hocam? süre ne kadar var? ona göre yaparım derim.
-
000 00 01
den başlayıp
999 99 99
da son bulmayacak mı hepsi bi şekilde yapılır yok mu onun bi zımbırtısı :D
-
http://phpfiddle.org buradan bastım inen dosya php oldu manuel txt olarak değiştirirsin.
5300000001 - 5300009999 aralıklarını istediğin gibi değiştirip indirebilirsin böyle, derme çatma kod ama iş görür
<?php$t = "";
for($i=5300000001;$i<=5300009999;$i++)
$t.= "0".$i."\n";
echo $t;
header("Content-Disposition: attachment; filename=\"" . basename($t) . "\"");
header("Content-Type: application/force-download");
header("Content-Length: " . strlen($t));
header("Connection: close");
?>
-
Teşekkürler arkadaşlar,
vstudio buldum yükledim, hallettim.
Kod da şuracıkta dursun.
Dim vCard As String
For i = CDbl(TextBox1.Text) To CDbl(TextBox2.Text)
vCard = "BEGIN:vCard" & vbCrLf & "VERSION:3.0" & vbCrLf & "FN:" & i & vbCrLf & "TEL;type=CELL:" & i & vbCrLf & "End:vCard"
Dim FILE_NAME As String = "C:\Users\mav\Desktop\dosyalar\" & TextBox1.Text & " - " & TextBox2.Text
If System.IO.File.Exists(FILE_NAME) = True Then
Dim objWriter As New System.IO.StreamWriter(FILE_NAME, IO.FileMode.Append)
objWriter.WriteLine(vCard)
objWriter.Close()
Else
Dim writeFile As IO.StreamWriter
writeFile = IO.File.CreateText(FILE_NAME) 'Creates a new file
writeFile.WriteLine(vCard)
writeFile.Close()
End If
Next
-
https://yadi.sk/d/LbZSEnH0dJrSe
turkcell tüm numara arşivi ni oluşturdum belki ihtiyacı olan olur
örnek olarak 530 000 00 00 530 999 99 99
toplam dosya boyutu rardan çıkarttıktan sonra 1 gb yi buluyor bilginize.
