作者查詢 / Y78
作者 Y78 在 PTT 全部看板的留言(推文), 共1333則
限定看板:全部
看板排序:
全部juniorhigh407Soft_Job172Visual_Basic122Rubiks72SENIORHIGH51NTUST-DT93-238AndroidDev31NTU25PushDoll24ShuangHe20tutor20TaiwanDrama19SongShan18Shu-Lin17Gossiping15NTUcourse15Math14EZsoft10puzzle10Boy-Girl9C_and_CPP9Japan_Travel9joke9movie8Oversea_Job8Web_Design8study7Tech_Job7WarCraft6Ajax5CodeJob5haiku5poem5SpecialForce5Vietnam5AOE4Bus4specialman4teaching4Android3CSSE3CVS3fastfood3Golden-Award3Kodocha3logic3LoL3LUNA3Programming3Salary3Star-Clan3ASHS-93-li2Beauty2CompBook2Della2DoubleMajor2Drink2FITNESS2GO2humanity2java2kartrider2ONE_PIECE2PH-sea2Tennis2Theater2Acad-Affairs1AndyLau1Anti-ramp1C_Chat1Capricornus1CareerPlan1ChicagoBulls1Chihlee1e-coupon1Facebook1Hip-Hop1Hualien1Hunter1kawaii1KS93-3201KS98-3021kuninaka1LeeMinKi1Lifeismoney1Little-Games1MacDev1Militarylife1MobileComm1MRT1Mudran1NIHONGO1NTHU_pingpon1Olympics_ISG1paranormal1PHP1PublicIssue1Ruby1ScienceNote1SuperIdol1Test1tetris1Thailand1Timberwolves1TTU-AFL1Wen-Shan1Winnie1<< 收起看板(107)
1F推:要監控檔案的話 可以用FileSystemWatcher(VB2005有01/08 22:09
6F推:Dim a As Variant01/07 22:21
7F→:a = Split("1.157 1255.2")01/07 22:21
8F→:ubound(a) = 1 , a(0)=1.157 a(1)=1255.201/07 22:21
9F→:不是就這樣分而已嗎? 我沒試過vba不清楚01/07 22:22
10F→:Split第一個引數是字串 然後第二個引數是要分隔的字串01/07 22:22
11F→:第二個預設值是" " 就是以空白來分 然後會回傳一個陣列01/07 22:23
14F推:如果空白數固定的話 把split第二個引數改掉就好了01/08 22:14
15F→:如果不是 那我會這樣寫01/08 22:14
16F推:str = "1.157 1255.2"01/08 22:21
17F→:x = Len(str)01/08 22:22
18F→:a = Split(str)01/08 22:22
19F→:str = Replace(str, " ", "")01/08 22:22
20F→:a(0) & a(x - Len(str)) 就是你要的了01/08 22:22
21F→:但是用Replace會把原字串取代 不想的話 可以這樣01/08 22:23
22F→:把後面那個改成 a(x - Len(Replace(str, " ", "")))01/08 22:23
29F推:如果很多的話 就照你那招吧 我上面的解法純粹是針對只有2個的01/08 23:26
30F推:突然想到 其實不用那麼麻煩 第二個只要 a(ubound(a))就好了01/09 22:26
269F推:好強12/20 18:13
271F推:好強12/20 18:13
3F推:form2直接用api抓鍵盤按鍵? GetAsyncKeyState12/21 20:59
271F推:好強12/20 18:13
6F推:要學VB的話 學VB.NET(2008) 會比較好吧? 雖然跟VB6差異也不是12/20 10:08
7F→:非常大(對初學者而言)12/20 10:08
8F→:但是之前聽過有人講學VB.NET不如學C#12/20 10:08
15F→:推head first系列12/20 10:09
7F推:要排序的話 list就可以了12/16 18:27
2F推:For i = 1 to Len(Textbox1.Text)12/03 19:23
3F→: Textbox2.Text &= Asc(Mid(Textbox1.Text,i,i) & vbcrlf12/03 19:24
4F→:Next12/03 19:24
5F→:沒測試過 直接打上來的 不過差不多就是這樣12/03 19:25
6F→:Textbox2.Text &= Asc(Mid(Textbox1.Text,i,i)) & vbcrlf12/03 19:25