Karakterlerin Tekrar Sayısı

Yine bana sıklıkla sorulan sorulardan birisinin çözümünü sizlerle paylaşacağım. Bu şekilde paylaşımı seviyorum. Çünkü bir kez yazıp çok kez soruyu soran arkadaşlara sadece link vererek sorunlarının çözümünde yardımcı oluyorum.

Bir text ifadenin içinde tekrarlanan karakterlerin sayısını aşağıdaki şekilde bulabiliriz.

Örnek: "mehmet,ahmet,ali,a,c,b" string ifademizdeki ,(virgül) sayısınının 5 olduğunu VB kodu ile bulalım

text="mehmet,ahmet,ali,a,c,b"
dizi = Split(text, ",")
VirgulSayisi= UBound(dizi)

Query Analyzer'da Debug

Zamanında yazdığım SP lerimde debug işlemi yapamadığımdan yakınmıştım. SQL Server 2000 içerisinde de debug yapabileceğini öğrendim ve bunu siz değerli günlük sakinlerimle paylaşayım dedim.

Debug işlemi için öncelikle Query Analyzer sayfasındaki Tools->Object Browser->Show/Hide yada kısayoldan F8 ile veritabanı nesnelerine ulaşabilirsiniz. Burdaki SP lerinizin üzerine gelip sağı tıklayıp Debug seçeneğini seçerseniz Debug Procedure'na ulaşırsınız. Debug Procedure ekranında SP nize ait giriş parametrelerini sizden istenir. Giriş parametrelerini girip Execute butonuna bastığınız zaman artık Debug ekranındasınız.

Debug ekranındaki kısayol tuşları ve anlamları şu şekildedir:
F5 : Çalışmayı bir sonraki durma imine kadar devam ettirir.
F9 : Durma işaretini yerleştirir.
Ctrl + Shift + F9 : Bütün durma işaretlerini kaldırır.
F11 : Satır satır ilerlememizi sağlar.
F10 : Fonksiyonların içine girmeyerek, direk olarak çalışır. Fonksiyonun görevini icra eder, fonksiyonun içine girmeden bir sonraki satırdan çalışmasına devam ettirmemizi sağlar.
Shift + F11 : Satır satır ilerlediğimiz bir fonksiyon için direk olarak çıkmamızı sağlar.
Ctrl + F10 : Debug işleminin, imlecin olduğu yere gelmesini ve ordan devam etmesini sağlar.
Ctrl + Shift + F5 : Debug işlemini yeniden başlatır.
Shift + F5 : Debug işlemini durdurur.
Auto Rollback : Aktif olması halinde, Debug işlemi sırasında meydana gelecek olan değişiklikleri veritabanından geri alınmasını sağlar. Pasif olduğunda, debug işlemi sırasında meydana gelen değişiklikler veritabanını etkiler.

Yeni Şeyler Söylemek Lazım!

Her gün bir yerden göçmek ne iyi.
Her gün bir yere konmak ne güzel.
Bulanmadan, donmadan akmak ne hoş.
Dünle beraber gitti, cancağzım
Ne kadar söz varsa düne ait.
Şimdi yeni şeyler söylemek lazım.
                             Hz. Mevlana(r.a.)

TTNet'in Azizliği!

Uzun bir aradan sonra geçen ay sonunda ADSL başvurdum. 3 GB kota yeter dedim. Bu ay gelen faturada bir de ne göreyim: 6 GB kotalı yapmışlar ve ona göre fatura göndermişler. Hem de faturanın son ödeme tarihinden bir gün sonra fatura elime ulaştı. Müşteri hizmetlerini aradım. Bağlı bulunduğum Telekom müdürlüğünden tarife değişikliği yapmamı söylediler. Hem hata yapın, hem faturayı 2 kat gönderin, hem faturayı zamanında göndermeyin hem de hatanızı düzeltmek için ayağınıza kadar çağırın. Böylesine 3.dünya ülkelerinde rastlanır!

Neyse www.sikayetvar.com a şikayet gireyim dedim. Tek tek baktım şikayetlere. Baktığım hiçbir şikayetin çözülmediğini gördüm. Şirketin başarına bakayım dedim. Bir de ne göreyim %6 başarı. Yani 100 şikayetten 6 şikayete cevap verme zahmetinde bulunmuşlar. Aldığımız hizmet konusunda daha fırınla ekmek yememiz gerekiyor. Hele hele internet hizmetleri ile yine sınıfta kaldık. Bravo Türk Telekom güya özelleştin ama hala sözdeliğini kaybetmemişsin.

ASP'den Word'e Aktarma

ASP sayfalarınızdaki bilgileri Word dokumanı olarak kaydedip üzerinde dilediğiniz değişikliği yapmak için aşağıdaki kod bloğunu kullanabilirsiniz:

Response.Buffer = True
Response.ContentType = "application/vnd.ms-word"
Response.AddHeader "content-disposition", "inline; filename = DosyaAdi.doc"