返回列表 上一主題 發帖

[發問] [已解決]文字字串改為空字串

register313
　頭銜: 麻辣 路人甲

大學生Rank: 4

帖子
967 
主題
0 
精華
0 
積分
1001 
點名
0  
作業系統
WIN XP 
軟體版本
OFFICE 2003 
閱讀權限
50 
性別
男 
來自
台北 
註冊時間
2010-11-29 
最後登錄
2022-5-17 

2012龍年全勤獎章熱烈參與勳章
1# 跳轉到 »
發表於 2012-5-23 19:21 | 顯示全部帖子
回復 1# HSIEN6001


If Not IsNumeric([S2]) Then [S2] = ""

TOP

register313
　頭銜: 麻辣 路人甲

大學生Rank: 4

帖子
967 
主題
0 
精華
0 
積分
1001 
點名
0  
作業系統
WIN XP 
軟體版本
OFFICE 2003 
閱讀權限
50 
性別
男 
來自
台北 
註冊時間
2010-11-29 
最後登錄
2022-5-17 

2012龍年全勤獎章熱烈參與勳章
2#
發表於 2012-5-23 23:06 | 顯示全部帖子
本帖最後由 register313 於 2012-5-23 23:08 編輯

回復 3# HSIEN6001

不太清楚你要的功能,程式的邏輯,也沒附檔案

不過s2應是當時就要即時處理,不是最後再處理
見紅色之部份

Dim s2 As String
isdeli = False
s2 = ""
For i = 1 To Len(s1)
    ch = Mid(s1, i, 1)
    If Mid(s1, i, 1) = """" Then
        isdeli = Not isdeli
    Else
        If isdeli Then
            If ch <> "," Then
                s2 = s2 & ch
            End If
        Else
            If IsNumeric(ch) Then s2 = s2 & ch   '若ch為數字則加入s2     
        End If
    End If
Next
's2 = Replace(s2, "--", "00")    '儲存格內有"--",取代為"00"

TOP

        靜思自在 : 愛不是要求對方，而是要由自身的付出。
返回列表 上一主題