| 上一篇主題 :: 下一篇主題 |
| 發表人 |
內容 |
foxabc
註冊時間: 2012-04-21
文章: 61
第 1 樓
|
 發表於: 星期三 十月 22, 2014 3:10 pm 文章主題: editbox清除空白行?? |
 |
|
▼
圖1要變成圖2(清除editbox中的空白行),程式要怎寫?
Thanks!! |
|
| 回頂端 |
|
 |
55812296
註冊時間: 2012-09-19
文章: 49
第 2 樓
|
| 發表於: 星期三 十月 22, 2014 4:32 pm 文章主題: |
|
|
| 我的作法是將 EDIT.VALUE 轉成MEMO 再一行一行讀取 空白的刪除 再回存至EDIT.VALUE |
|
| 回頂端 |
|
|
ckp6250
註冊時間: 2004-07-30
文章: 1645
第 3 樓
|
| 發表於: 星期三 十月 22, 2014 5:03 pm 文章主題: |
|
|
| 2樓+1 |
|
| 回頂端 |
|
|
foxabc
註冊時間: 2012-04-21
文章: 61
第 4 樓
|
| 發表於: 星期三 十月 22, 2014 5:38 pm 文章主題: |
|
|
感謝前輩大師們的回答
還是不太懂怎麼做><.
是否有簡單的示例可以參考呢? |
|
| 回頂端 |
|
|
ckp6250
註冊時間: 2004-07-30
文章: 1645
第 5 樓
|
| 發表於: 星期三 十月 22, 2014 5:55 pm 文章主題: |
|
|
thisform.editbox1.value = 刪除空白列(thisform.editbox1.value )
| 代碼: |
Function 刪除空白列(m_var)
m_Var = ALLTRIM(m_var)
m_LineCount = Memlines(m_Var)
m_Var2=''
For I = 1 To m_LineCount
If ! EMPTY(Mline(m_Var,I))
m_Var2=m_Var2+Mline(m_Var,I)+IIF(I=m_LineCount,'',CHR(13))
Endif
return m_Var2
|
|
|
| 回頂端 |
|
|
foxabc
註冊時間: 2012-04-21
文章: 61
第 6 樓
|
| 發表於: 星期三 十月 22, 2014 7:11 pm 文章主題: |
|
|
感謝ckp大大您,幫我解決了我的難題
Thanks ~~^^.. |
|
| 回頂端 |
|
|
|
常見問題
搜尋
會員列表
會員群組
會員註冊
個人資料
登入檢查您的私人訊息
登入
