2

Is there an equivalent to python .replace in mapbasic? Something like

search = search.replace(',', ' ')

I have found the search and replace tool for mapinfo and it works well but I need something simple to just replace all the ',' in a table with a space.

There are questions from 2007 saying this is not possible but has this changed? http://git.net/ml/mapinfo-l/2009-09/msg00107.html and https://groups.google.com/forum/#!topic/mapinfo-l/9QLqjsBTO_0

From one of my past questions I see we can find the ',' using

(InStr(1, SearchColumn, ",")

but how do I replace this character when found?

A line would be like "123, Main Street, GIS Town" and should become "123 Main Street GIS Town"

and it needs to be run in a table update command.

Update DCDB_Address Set Search = Search+" [Address]"
3

Unfortunately, there is no built in 'search & replace' functionality in the MapBasic language. The way I've always done this is to use a custom function and include this in any projects where I've needed to search/replace.

My search and replace function takes a string as input and returns a string as output, so you could use this in an update query.

e.g. UPDATE myTable SET myTextField = SearchReplace(myTextField, ",", " ")

Here's the function:

'=========================================
'// <summary>
'// Replace part of a string with another string
'// </summary>
'-----------------------------------------
Function SearchReplace(ByVal strInput as String, ByVal strReplace as String, ByVal strReplacement as String) as String

Dim iPos as Integer
Dim strOut as String
Dim i as Integer

    iPos = InStr(1, strInput, strReplace)
    If iPos < 1 then            '// nothing to replace, return original string
        SearchReplace = strInput
        Exit Function
    End If

    While iPos > 0              '// loop until nothing left to replace
        If iPos > 1 then
            strOut = Left$(strInput, iPos - 1)
        End if
        strOut = strOut & strReplacement
        If iPos + Len(strReplace) - 1 < Len(strInput) then
            strOut = strOut & Mid$(strInput, iPos + Len(strReplace), Len(strInput) - (iPos + Len(strReplace)) + 1)
        End If

        strInput = strOut
        iPos = InStr(iPos + 1, strInput, strReplace)
    Wend

    SearchReplace = strOut

End Function
  • Great. So in a table with a column called Line would I use it as >>Update DCDB_Address Set Line = SearchReplace(Line, ",", " ") +" [Address]" – GeorgeC May 11 '17 at 12:31
  • 1
    @GeorgeC Yep, exactly. – T_Bacon May 11 '17 at 12:48

Your Answer

By clicking “Post Your Answer”, you agree to our terms of service, privacy policy and cookie policy

Not the answer you're looking for? Browse other questions tagged or ask your own question.