<form id="hz9zz"></form>
    • <form id="hz9zz"></form>
    

      

      <nobr id="hz9zz"></nobr>
      <form id="hz9zz"></form>
      3.   
          
      明輝手游網中心：是一個免費提供流行視頻軟件教程、在線學習分享的學習平臺！
                   
        
                           
        
                        		  
        
                 
              
                
      StripNonNumeric函數源程序
                
                  發表時間：2023-07-17             來源：明輝站整理相關軟件相關文章人氣：          
              
      [摘要]<%Function StripNonNumeric(strInput)    Dim iPos, sNew, iTemp    strInput = Trim(strInput)    If...
      <%
      Function StripNonNumeric(strInput)
          Dim iPos, sNew, iTemp
          strInput = Trim(strInput)
          If strInput <> "" Then
              iPos = 1
              iTemp = Len(strInput)
              While iTemp >= iPos
                  If IsNumeric(Mid(strInput,iPos,1)) = True Then
                      sNew = sNew & Mid(strInput,iPos,1)
                  End If
                  iPos = iPos + 1
              Wend
          Else
              sNew = ""
          End If
          StripNonNumeric = sNew
      End Function
      %>





              
              
                 
              
                                            
                              		       
                          
                           		  
        
                            
      
日韩精品一区二区三区高清