全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:2815
推到 Plurk!
推到 Facebook!

粹取stringgrid裡的資料

答題得分者是:syntax
yinna
一般會員


發表:1
回覆:3
積分:0
註冊:2007-03-07

發送簡訊給我
#1 引用回覆 回覆 發表時間:2007-04-28 09:28:20 IP:163.28.xxx.xxx 訂閱
大家好:

如果我要在StringGrid裡,將第一欄和第四欄中的每一個Cell裡作檢查,
(第一欄和第四欄的Cell都是以英文、數字為主)
並將每一個Cell裡以1開頭、和以2開頭的連續四個數字抓出,並置入第五欄位中,
(或是1850~2007之間的數字)
請問我該如何處理呢?

感謝各位了 ^^"
編輯記錄
yinna 重新編輯於 2007-04-28 09:29:41, 註解 無‧
syntax
尊榮會員


發表:26
回覆:1139
積分:1258
註冊:2002-04-23

發送簡訊給我
#2 引用回覆 回覆 發表時間:2007-04-29 01:04:16 IP:61.64.xxx.xxx 訂閱
妳自己都將程式步驟說出來了
照著寫就是了
P.D.
版主


發表:571
回覆:3887
積分:3677
註冊:2006-10-31

發送簡訊給我
#3 引用回覆 回覆 發表時間:2007-04-29 02:19:23 IP:61.67.xxx.xxx 未訂閱
1.要瞭解 StringGrid Cell 內存都是字串格式, 所以如果是要變成數值相加, 請先轉換格式
2.只要以迴圈方式來寫並檢查每一個Cell內是否符合您的要求, 是->則執行, 不是->則跳過
3.算出的值填入第5個就可以了!
yinna
一般會員


發表:1
回覆:3
積分:0
註冊:2007-03-07

發送簡訊給我
#4 引用回覆 回覆 發表時間:2007-04-29 10:58:23 IP:163.28.xxx.xxx 訂閱
1. 請問要如何轉換格式呢?是從字串->數字嗎?
2.可是我不太知道要怎麼去尋找 @@

抱歉...因為只是個新手,雖然知道該作步驟,但是寫法還是會有問題 >"<


===================引 用 P.D. 文 章===================
1.要瞭解 StringGrid Cell 內存都是字串格式, 所以如果是要變成數值相加, 請先轉換格式
2.只要以迴圈方式來寫並檢查每一個Cell內是否符合您的要求, 是->則執行, 不是->則跳過
3.算出的值填入第5個就可以了!
P.D.
版主


發表:571
回覆:3887
積分:3677
註冊:2006-10-31

發送簡訊給我
#5 引用回覆 回覆 發表時間:2007-05-03 00:49:37 IP:61.67.xxx.xxx 未訂閱
如果你想再進一步瞭解, 請先po一個簡單的範例給我們看一下, 因為從你的描述不是很能明白?
syntax
尊榮會員


發表:26
回覆:1139
積分:1258
註冊:2002-04-23

發送簡訊給我
#6 引用回覆 回覆 發表時間:2007-05-03 01:28:26 IP:61.64.xxx.xxx 訂閱
新手拿來當藉口的方式,妳要多練習
因為此種狀況,不適合用「新手」當藉口

妳有書嗎?有看書嗎?「新手」「入門」的書前幾章一定會教文字轉數字,數字轉文字的方式

看書吧,去書局翻翻都辦不到嗎?

總不能連上廁所這基本的事,都要人代勞吧
yinna
一般會員


發表:1
回覆:3
積分:0
註冊:2007-03-07

發送簡訊給我
#7 引用回覆 回覆 發表時間:2007-05-03 10:27:23 IP:163.28.xxx.xxx 訂閱
感謝兩位前輩指教 這幾天我有去翻書了,主要程式碼如下: begin LineLen:=Length(table.Cells[0,CntRow]); for CntChar:=1 to LineLen do begin if table.Cells[0,CntRow][CntChar]=#49 then begin if table.Cells[0,CntRow][CntChar 1]=#57 then begin if (table.Cells[0,CntRow][CntChar 2]>#47)and (table.Cells[0,CntRow][CntChar 2]<#58) then begin if (table.Cells[0,CntRow][CntChar 3]>#47)and (table.Cells[0,CntRow][CntChar 3]<#58) then table.Cells[4,CntRow]:= table.Cells[0,CntRow][CntChar] table.Cells[0,CntRow][CntChar 1] table.Cells[0,CntRow][CntChar 2] table.Cells[0,CntRow][CntChar 3]; end; end; .... 以下略 不好意思打擾了~
syntax
尊榮會員


發表:26
回覆:1139
積分:1258
註冊:2002-04-23

發送簡訊給我
#8 引用回覆 回覆 發表時間:2007-05-03 11:05:29 IP:61.64.xxx.xxx 訂閱
恩,大概就是這樣
不過有點太繁雜,有可能會有思考漏洞



建議你先將前四位,Typecast 成 Byte A B C D
並減去 $30 (也可在此檢查是否都為數字)
直接用 if (A =1 and B >= 8 and C >= 5 and D >= 0) or (A = 2 and B = 0 and C = 0 and D <= 7) 可滿足 1850~2007
P.D.
版主


發表:571
回覆:3887
積分:3677
註冊:2006-10-31

發送簡訊給我
#9 引用回覆 回覆 發表時間:2007-05-04 11:56:17 IP:61.67.xxx.xxx 未訂閱
其實 syntax兄也不要太兇了, 嚇壞了我們的小朋友, 大家都是由新人過來的, 難免詢問上有些不得體的狀況發生, 在此也給我們的小朋友一個建議, 詢問問題除了將自己的問題提問清楚外, 最好能加以說明要完成這個程式段的目的何在, 為何要如此說呢?因為如果你只是提出程式上的解法需求, 有時候我們會被你的迷思帶錯方式, 或者只針對這段程式提供我們所瞭解的解法, 但如果我可以知道你想要達成的結果, 或者是做這段的目的, 那我們會按自己的思維方式來看待, 或許有另一個層次的想法, 一支程式絶對不只一種解法, 雖然大家寫的都能得到想要的結果, 可是如何讓程式更精簡, 更人性化, 更結構化才是設計者所追求的目標, 透過前輩的經驗你可以學習到更多不可思議的理念(只要瞭解你的需求), 所以從這個方向來看, 我還是看不出你真正想要的東西, 雖然你PO上程式, 我大致瞭解, 提供的與syntax也大致相同, 但我相信一定還有更好的做法, 好好再努力你的發問技巧, 期待下次可以更容易明白, 加油!
編輯記錄
P.D. 重新編輯於 2007-05-04 11:57:08, 註解 無‧
yinna
一般會員


發表:1
回覆:3
積分:0
註冊:2007-03-07

發送簡訊給我
#10 引用回覆 回覆 發表時間:2007-05-04 13:11:08 IP:163.28.xxx.xxx 訂閱
謝謝版主的指教
我會多多留意、加油~
===================引 用 P.D. 文 章===================
其實 syntax兄也不要太兇了, 嚇壞了我們的小朋友, 大家都是由新人過來的, 難免詢問上有些不得體的狀況發生, 在此也給我們的小朋友一個建議, 詢問問題除了將自己的問題提問清楚外, 最好能加以說明要完成這個程式段的目的何在, 為何要如此說呢?因為如果你只是提出程式上的解法需求, 有時候我們會被你的迷思帶錯方式, 或者只針對這段程式提供我們所瞭解的解法, 但如果我可以知道你想要達成的結果, 或者是做這段的目的, 那我們會按自己的思維方式來看待, 或許有另一個層次的想法, 一支程式絶對不只一種解法, 雖然大家寫的都能得到想要的結果, 可是如何讓程式更精簡, 更人性化, 更結構化才是設計者所追求的目標, 透過前輩的經驗你可以學習到更多不可思議的理念(只要瞭解你的需求), 所以從這個方向來看, 我還是看不出你真正想要的東西, 雖然你PO上程式, 我大致瞭解, 提供的與syntax也大致相同, 但我相信一定還有更好的做法, 好好再努力你的發問技巧, 期待下次可以更容易明白, 加油!
syntax
尊榮會員


發表:26
回覆:1139
積分:1258
註冊:2002-04-23

發送簡訊給我
#11 引用回覆 回覆 發表時間:2007-05-04 21:16:33 IP:61.64.xxx.xxx 訂閱
呵呵,我太兇囉

還是說是看的人的主觀認知?

有些人看文章時,會主觀的套用自己所認為的「語氣」,這問題也不是一天兩天的事了,但這樣會把一句話作多種解釋
其實文字,自己就說明了一切,不需要加上自己的見解,或是想像的語氣

舉例來說,我問

妳有書嗎 ? ---> 是想知道他是否有書,有書,那好辦,如果我有讀過,我可以告訴他,在哪一頁
有看書嗎?----> 是想知道他看書了嗎?有看,那好辦,我可以在相同基礎上,省略不必要的細節,講重點

「新手」「入門」的書前幾章一定會教文字轉數字,數字轉文字的方式 -----> 提醒,如果他沒看,在哪可以看到

看書吧,去書局翻翻都辦不到嗎?----> 有些人就是辦不到,例如深山裡,不易有書局 ---> 如果答案是「辦不到」(當然要有正當理由),那我再想辦法,因為我不喜歡直接講答案,這樣他學不到東西,我也學不到東西

這句只是比喻這件事的難易度---> 總不能連上廁所這基本的事,都要人代勞吧
如果要套用語氣,以上都是和顏悅色,笑笑的緩緩的說

不過要我每次都將語氣說出來,加上一堆修飾語,讓文字好看,那我通常會選擇「沈默」,以免浪費時間,既是學問,問答間就不需要帶贅字

然而他回答的也太少,我能給的也只有演算法,或是部分,沒辦法,他用「略」,但卻「略」了必需要存在部分

記得有一次,有人問一個很簡單的問題

我回的也很簡單:「這麼簡單的問題,為何要問?」

結果是一堆人,開始批判,說一堆有的沒有的,有的人還甚至寫了一篇長篇文章來質問我,同時將我的句子變成:「這麼簡單的問題,為何要問?真是笨死了」的一系列解譯 (更難聽的,就不寫出來了)
然後就用他假設的「真是笨死了」,開始罵人,說我語氣輕浮
無奈,我不知道,這樣一句話,可以套用的語氣太多,偏偏要套上「語氣輕浮」

其實,我只是想知道,他問問題背後的成因,因為我想,一定有特殊原因,但我不敢確定,不過我想要「學」到該原因,與可能的新解法,怎知,沒半封有建設性的文章,只有謾罵,那我也沒辦法,看者修養,不在我掌控範圍,每個人都會用自己修養的「認知」來決定未知的東西,修養正向的人,會習慣套用正面、樂觀的想法,反知負向的人,會套用負面、消極的想法

也確實,我有時會把話說的硬了一點,但與其說硬,不如說是說中重點,受之與魚,不如受之與漁,有些看起來就是 不勞 (自己不先做工) 而獲 (就等他人給) 的問題,這樣跟乞丐有何不同 (不過這篇文章就沒有這問題,說一下,以免又要被誤會了) ,如果我會回像是看起來「訓誡? / 兇?」的話,其實我沒有「訓誡? / 兇?」的意思,只是想要他有意識到,一時的便利,換來的是永久的落後與失敗,這樣,我有回,他有看,然後有改變,算是他好運,通常,我是不會理會該類型的文章,除非,我覺得我有機會在該主題學到東西,我會回,看有沒有建設性的看法,例如作者馬上「作功課」,並貼出問題點,我就可以多學一項,不過通常,是沒有,所以就算真的是缺點,還附上改善辦法,不改善的人,還是居多,因為這是「不知道要上進」的人的缺點,不是他們不知上進,而是不知道應該要上進、積極

一時的貪便利、省事,乃是源自於己身的惰性,惰性是會越用越強,最後。變成一個被淘汰的人

不過說實在,我也沒必要管,我只是想我有機會在該主題學到東西,才會回

提問要有智慧,看文也是,回答亦然

但被沖昏頭的人,通常不會有正確的回應

如同我在一篇有關 DLL 的文章,問:「妳懂什麼是 DLL 嗎?」,同樣這句話,如果套用語氣,與自身想法,可以解釋的範圍也非常多

但,我的想法一如那簡短的文字 (妳懂什麼是 DLL 嗎?) ,只是想得到「懂」、「不懂」,兩者其一的答案

懂,我才可以回答切中重點的地方,不會打依堆徒然浪費時間的文字,我們不是在寫書,也不是再寫說明文件,不需從頭解釋到尾 (既是學問,問答間就不需要帶贅字)
不懂,我可以跟之說要先去吸收哪些東西

無奈,起初,不回答,那我也無從下手

所以,問,就問重點
所以,答,就回答,問題的答案

因此

恩,大概就是這樣 --> 他後面「略」,所以只能說,大概就是那樣
不過有點太繁雜,有可能會有思考漏洞 ---> 但前段看起來,我覺得怪怪的 (直覺就是) ,又無法確定,提示「可能」性

在附上一個簡化的可能方案,用不用,看「略」的部分適不適用,與他喜不喜歡,喜歡就用

小朋友,不要被嚇壞,因為,我也是一個「小朋友」,我,從不認為自己有多強,我反而認為,我是一個程式能力「很需要加強」的人,只要有機會,我就看書、看文章、實作,希望哪天,我也會成為「強者」,但起碼現在還不是

本來,是不會再回什麼,因為這文章應該已經到生命終點了,不過版主把他轉生,成為閒聊文章,那我,就來屁一下好了,閒聊時,我的話就多了

倒是,不要把我看成嚴肅、兇XX的人,我只是一個膽小 (恩,我膽很小,常人被嚇到,真的鬼我反而不怕,鬼比人善良多了,倒是有時很難分辨,我看到的是「人」還是...,唉!晚上麼!難分辦,不過,會呼低消失的,應該不是人吧!) ,我也算是很良善的人 (勸人努力,應該是好事吧),通常事情,我都是說「好、OK」,甚少拒絕 (這其實是缺點,但拒絕人,我會寢食難安,一直想該件事,應該算是精神病吧!那,我就是一個有精神病的人囉,呵呵!),所以不要被我嚇到,我雖是人,可怕的人,但起碼,是好的那一邊!


最後,版主說的好,提出問題,先備條件越詳細,回答者,越有游刃有餘之地,自然提出的解法越好,相互激盪下,學到東西的,可不只是發問者,答問者亦然,這樣才會成就好文章


系統時間:2017-12-12 20:23:50
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!