[GIS] Trying to completely Exit from the MapInfo application

mapbasic

I tried the following two things:

 include "mapbasic.def"

 Declare Sub Main
 Declare Sub Exit

Sub Main()

    If WindowInfo(WIN_MAPBASIC, WIN_INFO_OPEN) then
        Close Window WIN_MAPBASIC
    End If

 End Sub

and

 Sub Exit()
    End Program
 End Sub

But my MapBasic program does not completely exit from MapInfo (close MapInfo).

Best Answer

Let's start by looking at your two statements:

This statement will close the MapBasic Window:

Close Window WIN_MAPBASIC

This statement will end your MapBasic application and unload it from memory:

End Program

If you want to shot down MapInfo Professional, you should run this statement:

End MapInfo Interactive

The keyword 'Interactive' makes sure that you are giving the user a chance to save what has not already been saved, either changes to a table or settings to a workspace.

Related Solutions

[GIS] replace character in string in mapbasic

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

Best Answer

Related Solutions

[GIS] replace character in string in mapbasic

Related Question