Asp ile Cümleyi ve İlk Harfleri Büyük Yazmak ! Türkçe Karakter Destekli (ucwords) Hakkında;
Function Convert(GelenMetin)
BoslukAta = " "
If GelenMetin <> "" Then
Veri = Split(GelenMetin, BoslukAta)
For i = 0 To UBound(Veri)
ParcalanmisGelenMetin = Trim(Veri(i))
If ParcalanmisGelenMetin <> "" Then
ParcalanmisGelenMetin = LCase(ParcalanmisGelenMetin)
DegistirVeri = UCase(Left(ParcalanmisGelenMetin,1))
DegistirVeri = Replace(DegistirVeri,"i","İ", 1, -1) ”Y
ParcalanmisGelenMetin = Right(ParcalanmisGelenMetin, Len(Veri(i)) - 1)
ParcalanmisGelenMetin = Replace(ParcalanmisGelenMetin,"İ","i", 1, -1) ”Y
ParcalanmisGelenMetin = DegistirVeri & ParcalanmisGelenMetin
End If
OnurluGelenMetin = OnurluGelenMetin & " " & ParcalanmisGelenMetin
Next
End If
Convert = OnurluGelenMetin
End Function
BoslukAta = " "
If GelenMetin <> "" Then
Veri = Split(GelenMetin, BoslukAta)
For i = 0 To UBound(Veri)
ParcalanmisGelenMetin = Trim(Veri(i))
If ParcalanmisGelenMetin <> "" Then
ParcalanmisGelenMetin = LCase(ParcalanmisGelenMetin)
DegistirVeri = UCase(Left(ParcalanmisGelenMetin,1))
DegistirVeri = Replace(DegistirVeri,"i","İ", 1, -1) ”Y
ParcalanmisGelenMetin = Right(ParcalanmisGelenMetin, Len(Veri(i)) - 1)
ParcalanmisGelenMetin = Replace(ParcalanmisGelenMetin,"İ","i", 1, -1) ”Y
ParcalanmisGelenMetin = DegistirVeri & ParcalanmisGelenMetin
End If
OnurluGelenMetin = OnurluGelenMetin & " " & ParcalanmisGelenMetin
Next
End If
Convert = OnurluGelenMetin
End Function
