wbmstr
Paylaşımcı Üye
- Katılım
- 3 Mar 2018
- Mesajlar
- 1,647
- Tepkime puanı
- 1
- Aktiflik Süresi
- 0
- Puanları
- 0
Kelimelerin baş harflerini büyütmek için aşağıdaki hazır kodu kullanabilirsiniz:
<% Function Proper(X) 'Return a String With the first letter of the word capitalised If IsNull(X) Then Exit Function Else lowercaseSTR = CStr(LCase(X)) OldC = " " MyArray = Split(lowercaseSTR," ") For IntI = LBound(MyArray) To UBound(MyArray) For I = 1 To Len(MyArray(IntI)) If Len(MyArray(IntI)) = 1 Then newString = newString & UCase(MyArray(IntI)) & " " ElseIf I=1 Then newString = newString & UCase(Mid(MyArray(IntI), I, 1)) ElseIf I = Len(MyArray(IntI)) Then newString = newString & Mid(MyArray(IntI), I, 1) & " " Else newString = newString & Mid(MyArray(IntI), I, 1) End If Next Next 'IntI Proper = Trim(newString) End If End Function %>
<% Function Proper(X) 'Return a String With the first letter of the word capitalised If IsNull(X) Then Exit Function Else lowercaseSTR = CStr(LCase(X)) OldC = " " MyArray = Split(lowercaseSTR," ") For IntI = LBound(MyArray) To UBound(MyArray) For I = 1 To Len(MyArray(IntI)) If Len(MyArray(IntI)) = 1 Then newString = newString & UCase(MyArray(IntI)) & " " ElseIf I=1 Then newString = newString & UCase(Mid(MyArray(IntI), I, 1)) ElseIf I = Len(MyArray(IntI)) Then newString = newString & Mid(MyArray(IntI), I, 1) & " " Else newString = newString & Mid(MyArray(IntI), I, 1) End If Next Next 'IntI Proper = Trim(newString) End If End Function %>
