Re: [VBA ] Excel的英文大小寫變換

[fumizuki (小獅子)]

※ 引述《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
推 walkman:謝謝^^  我會再想想的