作者fumizuki (小獅子)
看板Visual_Basic
標題Re: [VBA ] Excel的英文大小寫變換
時間Tue Oct 25 11:25:13 2005
※ 引述《rosemary (原po比較老)》之銘言：
: ※ 引述《walkman (走路男人~)》之銘言：
: : 請問一下,我現在有個程式:
: : Dim str As string
: : str="Hello"
: : MsgBox str
: : MsgBox len(str)
: : MsgBox UCase(str)
: : MsgBox LCase(str)
: : 我現在只能夠看出它的字串長度
: : 還有讓他全部變大寫或全部變小寫
: : 有沒有辦法修正這個程式使它大小寫互換阿??
: : 像是"Hello"經過變換會變成"hELLO"
: : 請高手們幫忙了....
: : 謝謝
: Dim str As String
: str = "Hello"
: Dim s As String
: For i As Integer = 1 To Len(str)
: Dim c As String = Mid(str, i, 1)
: s = s & IIf(c >= "A" And c <= "Z", LCase(c), UCase(c))
: Next i
: MsgBox(s)
: 我是用 VB.Net 寫的 應該沒有差很多吧
Dim i As Integer, c As Integer
Dim s As String
s = "Hello"
For i = 1 To Len(s)
c = Asc(Mid(s, i, 1))
If c >= 65 And c <= 90 Then
Mid(s, i, 1) = Chr(c + 32)
ElseIf c >= 97 And c <= 122 Then
Mid(s, i, 1) = Chr(c - 32)
End If
Next
MsgBox s
舊版 vb/vba 的寫法
--
▃▅▇▆▄ ▆▂▃ `
逝去感情如何能留住，半點癡情遺留殊不易，██▅▇▄▃ ▇▃▂" .
█████████▃i ▁▄▇
更多悽悽慘慘的遭遇…………██▆▃ █▅▆▃ˍ▄*
◢ ▂█▄▇▅▂▌.
我不知道，王～八～蛋～～！ ▂▆███ █▄▃ 。fumizuki。Check。
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 61.222.155.162
1F：推 walkman:謝謝^^ 我會再想想的 10/28 02:26