Replace() funktion for VB 5 ?

Public Function Replace(ByVal strString As String, ByVal _
strReplaceWith As String, ByVal strReplace As String) As String


Dim i As Long
    Dim strTemp As String

    i = 1
    Do While InStr(i, strString, strReplace, vbTextCompare) <> 0
        strTemp = strTemp & Mid(strString, i, InStr(i, _
            strString, strReplace, vbTextCompare) - i) & strReplaceWith
        i = InStr(i, strString, strReplace, vbTextCompare) + Len(strReplace)
    Loop
    strTemp = strTemp & Right(strString, Len(strString) - i + 1)
    Replace = strTemp
End Function

hmmm ... prøver den lige ...

Hvor er den fundet henne ?

eller :
Public Function Replace(ByVal vntValue As Variant, ByVal strSource As String, ByVal strDest As Variant) As Variant
\'Purpose    Replace part of a string by another.
\'Inputs    vntValue    Value where execute substitution
\'          strSource  String to replace
\'          strDest    String replacement
\'Assumes
\'Returns
\'Effects
Dim i, j As Integer
Dim intLngDest As Integer, intLngSource As Integer

    If IsNull(vntValue) Then
        Exit Function
    End If
    If strSource <> strDest Then
        intLngDest = Len(strDest)
        If intLngDest = 0 Then
            intLngDest = 1
        End If
        intLngSource = Len(strSource)
   
        i = 1
        j = InStr(i, vntValue, strSource)
        While j <> 0
            vntValue = Left(vntValue, j - 1) & strDest & Right(vntValue, Len(vntValue) - (j + intLngSource - 1))
            i = j + intLngDest
            j = InStr(i, vntValue, strSource)
        Wend
    End If
    Replace = vntValue
End Function

nr2 er fra : http://www.ifrance.com/stephanew/vbReplace.htm

nr1 var noget jeg engang har brugt i et andet prog. (kan ikke huske hvor jeg har \"lånt\" den.

fandt også noget på msdn : http://msdn.microsoft.com/vbasic/technical/00pasttips.asp#2-14-00

-led efter \"globally replace\"

Nr. 1 ser ud til at virke helt perfekt .. mange tak :-)

Ved du hvad man skal bruge for at kunne bruge RegExp i VB 5 ?

np :) tak for pts.

jep du skal hente en dll fil (du kan faktisk hente den fra http://msdn.microsoft.com/vbasic/technical/00pasttips.asp#2-14-00

under global replace

(http://www.microsoft.com/msdownload/vbscript/scripting.asp)

Har fundet den :o)
Du får sku lige 30 point mere som tak for RegExp .. tænkte på at oprette spm. om det meen .. gad sku ikke ;o)

takker :)