Toplu mail adresleri içinde virgülden sonrasını silemiyorum

[SkyFire]

Merhabalar bu konu benim için çok önemli
elimde 1,5 milyon adet mail adresi var hepsi notepad dosyasında ve ben bunları excele copy paste yapacağım buraya kadar herşey okey
yanlız virgülden sonrakileri silmem lazım yani sadece email adresinin kalmasını istiyorum geri kalanlarının tamamını silmek istiyorum

aşağıda örnek olarak berlitiym size

alicia-gray@sbcglobal.net,Alicia,Gray,[url]http://www.facebook.com/profile.php?id=1575579067[/url]
alicia-tapia@sbcglobal.net
alicia.abstract@yahoo.com,Alicia,Hatmaker,[url]http://www.facebook.com/profile.php?id=1383821163[/url]
alicia.ackerman@utahhomes.com,Alicia,Ackerman,[url]http://www.facebook.com/profile.php?id=1028155554[/url]
alicia.allen4@yahoo.com,Ali,Allen,[url]http://www.facebook.com/profile.php?id=1231183417[/url]
alicia.anderson@cbexchange.com,Alicia,Frank,[url]http://www.facebook.com/profile.php?id=100000021400101[/url]

Mesela ilk satırda alicia-gray@sbcglobal.net den sonra virgül var sonra Alicia yazıyor ondan sonra bir virgül daha var sonra http olarak başlıyor

ben ne kadar mail adresi varsa hepsinin bitiminden sonraki tüm yazıların silinmesini istiyorum

yanlız şöyle bir problem var

alicia-gray@sbcglobal.net

yukarıdaki mail adresi 25 haneli , ama bunun dışında hotmail olanda var yahoo olanda var örnek hotmail olanlar 23 haneli hepsi değil tabiki , yahoo olanlar 18 haneli

nasıl kesebilirim bunları ?

lütfen çok önemli bu

 

[Necdet]

Merhaba,

Text dosyasından bir kaç satır örnek olarak ekleyin sorunuza, yardımcı olacak arkadaş mutlaka çıkar.

 

[SkyFire]

yukarda çıkarttım zaten


aşağıda örnek olarak berlitiym size

yazısından aşağısını örnek olarak gösterdim

 

[Necdet]

Merhaba,

Aşağıdaki kodları bir modüle kopyalayıp deneyiniz. Kırmızı ile belirttiğim değerleri kendinize uyarlayınız.

Her sütuna 50000 adet yazar.

Sub Mail_Listesi()
 
    Dim Yol     As String
    Dim Dosya   As String
    Dim i       As Long
    Dim Kol     As Integer
    Dim Veri    As String
    
    Yol = "[B][COLOR=red]C:\[/COLOR][/B]"
    Dosya = "[COLOR=red][B]Mail_Listesi.txt[/B][/COLOR]"
    
    Application.ScreenUpdating = False
    
    Cells.ClearContents
    
    Open Yol & Dosya For Input As #1
    Kol = 1
    While Not EOF(1)
        Line Input #1, Veri
        i = i + 1
        If i > 50000 Then
            i = 1
            Kol = Kol + 1
        End If
        Cells(i, Kol) = Split(Veri, ",")(0)
    Wend
    Close #1
    Application.ScreenUpdating = True
    MsgBox "Listeleme Tamamlanmıştır.....", vbInformation, "Necdet YEŞERTENER --> [URL="http://www.excel.web.tr/"]www.excel.web.tr[/URL]"
    
End Sub

 

[SkyFire]

merhabalar modul derken bunu nereye kopyalamam lazım ? açık olan mail excelindeki herhangi bir sütunamı ?

 

[SkyFire]

Evet Başardım Nejdet bey gerçekten mükemmelsiniz çok teşekkür ediyorum size

 

[SkyFire]

özür dilerim biraz flood gibi oldu ama son bir soru sorabilirmiyim
50.000 yazmışsınız

bunu 250.000 yapma şansım varmı ? yoksa max sınır 50.000 mi ?

 

[Necdet]

özür dilerim biraz flood gibi oldu ama son bir soru sorabilirmiyim
50.000 yazmışsınız

bunu 250.000 yapma şansım varmı ? yoksa max sınır 50.000 mi ?

Merhaba,

Kullandığınız xl nin sürümüne bağlı.

2003 te satır sayısı 65.536, 2007 ve üzerinde ise 1.048.576 dır.

ona göre kendiniz değerleri veriniz.

 

[SkyFire]

çok teşekkür ederim
Saygılarımla