作者lisder (lisder)
看板Visual_Basic
標題Re: [VB6 ] 字串轉換的問題
時間Wed Apr 18 14:37:15 2012
※ 引述《lisder (lisder)》之銘言:
: 我想要在Text裡面輸入字串,在將這些字串轉為ASCII
: 於是將程式寫為 Label1.Caption = Asc(Text1.Text)
: 可由Label所呈現的結果裡,只有第一個字元有成功轉為ASCII
: 後面的字元都沒有轉換到。
: 我該怎麼要修改我的程式呢?懇請各位大大幫忙~
我有試過for與mid()的方式了,但還是沒有抓到我想要的東西
目前暫時以不轉換ASCII,先成功抓到為主,我的程式碼如下:
Dim ss As String
Private Sub Command1_Click()
For I = 1 To Len(Text1.Text)
ss = Mid("Text1.Text", I, 1)
Next I
Label1.Caption = ss
End sub
請問這段程式碼哪裡錯了呢?點下command1後,label1的顯示馬上消失不見
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 120.117.112.36
1F:推 LPH66:你其實已經抓到了 只是你自己把前面的結果蓋掉了而已 04/18 15:00
2F:推 serhgrt:ss一直被覆蓋,label1不是最後只會呈現最後一碼嗎? 04/18 15:05
3F:→ serhgrt:for i=1 to len(trim(Text.text)) ss=ss+mid(...) next 04/18 15:07
4F:→ serhgrt:抱歉打錯了 是Text1.text 04/18 15:08
5F:→ lisder:恩…感謝L大與s大的幫忙,現在真的有抓到了,可要如何將抓 04/18 15:12
6F:→ lisder:到的字元轉成ASCII呢?我試過asc的方式~但是他只轉第一個 04/18 15:13
7F:→ lisder:字元 04/18 15:13
8F:→ MOONRAKER:asc(ss)不就是了。 04/18 15:43
9F:→ lisder:的確是asc(ss),可這樣只有第一個字元,如果我輸入一個以上 04/18 15:45
10F:→ MOONRAKER:你學過 i = i + 1 吧?那你知道 s = s & "1" 的用途吧? 04/18 15:45
11F:→ MOONRAKER:s="" : for i=1 to 10 : s = s & str(i) : next i 04/18 15:46
12F:→ lisder:以上的字元,後面都不會被轉換到。 04/18 15:46
13F:→ MOONRAKER:請問 s 最後是什麼? 04/18 15:46
14F:→ lisder:1 2 3 4 5 6 7 8 9 10 04/18 15:55
15F:→ MOONRAKER:那你還有什麼問題。 04/18 15:56
16F:→ lisder:謝謝你的指點,我會在嘗試看看 04/18 15:58
17F:→ fumizuki:Text1.Text 為何前後要加雙引號 04/18 21:34
18F:→ s3748679:XD 囧了 04/18 21:50