Print

End Sub Private Sub Command4_Click Form2. Show End Sub Private Sub Command5_Click End End Sub Private Sub Form_Load mailadresidegil = False Label5 = "Copyright Fikret Başgül - Tüm kod bana aittir ücreti bir teşşekkür yeter..." End Sub Private Sub Label3_Click Select Case index Case 0 Text3. SetFocus Label3(0). ForeColor = &HC00000 Label3(0). BackColor = &H80000005 Label3(1). ForeColor = &H80000011 Label3(1). BackColor = &H80000004 Text4. ForeColor = &H80000005 Text3. ForeColor = &H80000008 Case 1 Text4. SetFocus Label3(1). ForeColor = &HC00000 Label3(1). BackColor = &H80000005 Label3(0). ForeColor = &H80000011 Label3(0). BackColor = &H80000004 Text3. ForeColor = &H80000005 Text4. ForeColor = &H80000008 End Select End Sub kodda hatalar olabilir sonradan farkettim karşılaştırma yaparken list kutusunu kullanmışım aslında değişkene atmak gerekiyor çünkü mail adresi büyük olduğunda baya bir bekleme oluyor birde karşılaştırma yapıldığında bekleme olduğu için araya doevents eklememişim güle güle kullanın birde visualbasic 2008 kullananlar için eğer kullandığınız basic süre doldu mesajı verip açmıyorsa yılı geri almanız yetiyor bunun içinde her seferinde tarihi değiştirmek sıkıntı yaratıyor unutabiliyorsunuz bir batch file yapın (not defterine aşağıdakileri kopyalayıp yapıştırın farklı kaydet yapıp vb2008. bat yazıp kaydedin) bunu bat file çalıştırdığınızda tarihi değiştirir vbasic çalıştırır işiniz bitince vbasic kapattığınızda tarihi mevcut tarih yapar... Kod: set a=%date% date 01.01.2007 "C:\Program Files\Microsoft Visual Studio 9.0\Common7\IDE\vbexpress. exe" date %a% ben bu yöntemi kullanıyorum sizi bilmiyorum - You must log in or register to reply here. Alakalı Olabilecek Konular I Vb6 Msflexgrİd nesnesine Txt dosyasını okutma Hk. ikayserili 11 Şubat 2021 Yanıt 0 Gösterim 2K 11 Şubat 2021 ikayserili I Forum Programlama Visual Basic Bize Ulaşın Forum Kuralları Gizlilik Sözleşmesi Yardım Ana Sayfa RSS bafra oto ekspertiz, Tiktokbegeni.com, erkek cüzdan, eskişehir haber, çelik ranza, hasta yatağı kiralama, bonus veren siteler, ankara oto ekspertiz, istanbul oto ekspertiz, eskişehir oto ekspertiz, çorum oto ekspertiz, geobonus. org, deneme bonusu, bonusportali.com, vbet giriş, Pokerklas, Caddebet, megapari giriş, meritking giriş, meritking, kingroyal giriş, bahis siteleri, betwinner, rokubet giriş, deneme bonusu veren siteler, takipçi satın al, deneme bonusu veren siteler, betnano giriş, elektronik sigara, deneme bonusu veren siteler, replika saat, melbet giriş, smok, deneme bonusu, bahis forum, melbet, izmit oto ekspertiz, poppers turkiye, eskişehir oto ekspertiz, dalyan otel, hack forum, melbet, sohbet numaraları Wardom. Org Bilginin Adresi. 1998'den beri Wardom yayında! Wardom Türkiye'nin en eski forum sitelerinden biri olarak günümüz web sitelerine sponsor linkler yayınlanmaktadır. ataşehir escort maltepe escort pendik escort gaziantep rus escort xxx videos erotik film izle istanbul escort ankara escort istanbul escort gaziantep escort gaziantep escort Paylaşım sitemizde 5651/8 ve 125. madellere göre, tüm üyeler ve ziyaretçiler sitenin kullanımı ve yapılan paylaşımlarından kendileri sorumludur. Şikayetleriniz için bize ulaşabilirsiniz. Tüm hakları saklıdır 2015 Wardom. Org bilginin adresi. Forum ve bilgisayar güvenliği sitesi. var sc_project=2030864;var sc_invisible=1;var sc_security="c6df530c"; Üst <div class="tooltip-content-inner"> <div class="reactTooltip"> <a href="#" class="reaction reaction--1" data-reaction-id="1"><i aria-hidden="true"></i><img src="data:image/gif;base64, R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7" class="reaction-sprite js-reaction" alt="Like" title="Like" data-xf-init="tooltip" data-extra-class="tooltip--basic tooltip--noninteractive" /></a> <a href="#" class="reaction reaction--2" data-reaction-id="2"><i aria-hidden="true"></i><img src="data:image/gif;base64, R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7" class="reaction-sprite js-reaction" alt="Love" title="Love" data-xf-init="tooltip" data-extra-class="tooltip--basic tooltip--noninteractive" /></a> <a href="#" class="reaction reaction--3" data-reaction-id="3"><i aria-hidden="true"></i><img src="data:image/gif;base64, R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7" class="reaction-sprite js-reaction" alt="Haha" title="Haha" data-xf-init="tooltip" data-extra-class="tooltip--basic tooltip--noninteractive" /></a> <a href="#" class="reaction reaction--4" data-reaction-id="4"><i aria-hidden="true"></i><img src="data:image/gif;base64, R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7" class="reaction-sprite js-reaction" alt="Wow" title="Wow" data-xf-init="tooltip" data-extra-class="tooltip--basic tooltip--noninteractive" /></a> <a href="#" class="reaction reaction--5" data-reaction-id="5"><i aria-hidden="true"></i><img src="data:image/gif;base64, R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7" class="reaction-sprite js-reaction" alt="Sad" title="Sad" data-xf-init="tooltip" data-extra-class="tooltip--basic tooltip--noninteractive" /></a> <a href="#" class="reaction reaction--6" data-reaction-id="6"><i aria-hidden="true"></i><img src="data:image/gif;base64, R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7" class="reaction-sprite js-reaction" alt="Angry" title="Angry" data-xf-init="tooltip" data-extra-class="tooltip--basic tooltip--noninteractive" /></a> </div> </div> { "@context": "https://schema.org", "@type": "DiscussionForumPosting", "@id": "https:\/\/www.wardom.org\/threads\/mail-adresi-karsilastirma.232002\/", "headline": "Mail adresi karşılaştırma", "articleBody": "bu programın amacı diyelimki elinizde iki mail dosyası var ve her iki dosyada aynı mail adresleri var birde mail adreslerine bakıyor türkçe karakter varsa ve @ işareti yoksa listeye dahil etmiyor karşılaştırdıktan sonra sonucu kayıt edebiliyorsunuz iki dosyadan tek dosya haline getirebiliyorsunuz.\r\n\r\nPublic mailadresidegil As Boolean\r\nPrivate Sub Command1_Click \r\nText3 = \"\"\r\nText4 = \"\"\r\nCommonDialog1. Filter = \" | . txt\"\r\nCommonDialog1. FilterIndex = 1\r\nCommonDialog1. ShowOpen\r\nSelect Case index\r\n Case 0\r\n Text1 = CommonDialog1. FileName\r\n Case 1\r\n Text2 = CommonDialog1. FileName\r\nEnd Select\r\nEnd Sub\r\n\r\nPrivate Sub Command2_Click \r\nText3 = \"\"\r\nText4 = \"\"\r\nList1. Clear\r\nOn Error Resume Next\r\nIf Right(Text1, 4) <> \". txt\" Then z = MsgBox(\"Karşılaştırılacak 1. Dosya Seçilmemiş\", vbCritical, \"Dikkat!\"): Exit Sub\r\nIf Right(Text2, 4) <> \". txt\" Then z = MsgBox(\"Karşılaştırılacak 2. Dosya Seçilmemiş\", vbCritical, \"Dikkat\"): Exit Sub\r\nOpen Text1 For Input As

Open Text2 For Input As

bu programın amacı diyelimki elinizde iki mail dosyası var ve her iki dosyada aynı mail adresleri var birde mail adreslerine bakıyor türkçe karakter varsa ve @ işareti yoksa listeye dahil etmiyor karşılaştırdıktan sonra sonucu kayıt edebiliyorsunuz iki dosyadan tek dosya haline getirebiliyorsunuz. Kod: Public mailadresidegil As Boolean Private Sub Command1_Click Text3 = "" Text4 = "" CommonDialog1. Filter = " | . txt" CommonDialog1. FilterIndex = 1 CommonDialog1. ShowOpen Select Case index Case 0 Text1 = CommonDialog1. FileName Case 1 Text2 = CommonDialog1. FileName End Select End Sub Private Sub Command2_Click Text3 = "" Text4 = "" List1. Clear On Error Resume Next If Right(Text1, 4) <> ". txt" Then z = MsgBox("Karşılaştırılacak 1. Dosya Seçilmemiş", vbCritical, "Dikkat!"): Exit Sub If Right(Text2, 4) <> ". txt" Then z = MsgBox("Karşılaştırılacak 2. Dosya Seçilmemiş", vbCritical, "Dikkat"): Exit Sub Open Text1 For Input As

Do While Not EOF(1) Input

For t = 0 To List1. ListCount - 1 ab = List1. List Text4 = Text4 & ab & vbCrLf Next Command3. Enabled = True End Sub Private Sub Command3_Click CommonDialog1. Filter = " | . txt" CommonDialog1. FilterIndex = 1 CommonDialog1. ShowSave Text5 = CommonDialog1. FileName Open Text5 For Output As