作者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