Le portail francophone de la géomatique

    print "Remplace Caractère"
    
    dim CharSpCounter as smallint
    dim CharSpSearch as string
    dim CharSpReplace as String
    
    CharSpCounter = 0
    
    Do while CharSpCounter < 501
    
    if CharSpCounter = 0 then CharSpSearch = "-" CharSpReplace = " "
    ...
    elseif CharSpCounter = 500 then CharSpSearch = "à" CharSpReplace = "a"
    end if
    
    Update adresse Set strNewCol = StringReplace(aChampFonction, CharSpSearch, CharSpReplace)
    Commit table adresse
     Set Table adresse FastEdit On Undo Off
     aChampFonction = ColumnInfo(adresse,"col"+i_numcols,COL_INFO_NAME)
     Commit table adresse
     Set Table adresse FastEdit On Undo Off
     Print (Timer()-nElapsed) & " / ( "& CharSpSearch & " ) / temps écoulé: " & (Timer() - nTime) 
     nTime = Timer() 
    
    CharSpCounter = CharSpCounter + 1
    
    Loop
 
' Et voici la Fonction

'*************************************Recherche et remplace
Function STRINGReplace
(ByVal sToBeSearched As String
, ByVal sSearchFor As String
, ByVal sReplaceWith As String) As String
 
Dim i, nLenR, nLenS As Integer
OnError GoTo ErrorOccured
 
STRINGReplace = sToBeSearched
 
 nLenR = Len(sReplaceWith)
 nLenS = Len(sSearchFor)
 i = InStr(1, sToBeSearched, sSearchFor)
 Do While i > 0
    sToBeSearched = Left$(sToBeSearched,i - 1) + sReplaceWith
                + Right$(sToBeSearched, Len(sToBeSearched) - ((i - 1) + nLenS))
    i    = InStr(i + nLenR, sToBeSearched, sSearchFor)
 
 Loop
 STRINGReplace = sToBeSearched
  Exit Function
'-------------------------
ErrorOccured:
End Function