[xax_nv]

Приветствую всех!
Подскажите, как программно в тестовом слое заменить у всех объектов "," на ".".

[Vovik]

Держи код

Include "mapbasic.def"
Declare Sub Main
Declare function MyReplace(ByVal s as string, ByVal s1 as string, ByVal s2 as string) as string
Sub Main
Dim i, n, m As Integer
Dim objtype As SmallInt
Dim aobj As object
OnError GoTo exit_err
'выбираем строки таблицы table_name имеющие объекты на карте
Select obj From table_name into ~temp
n = TableInfo(~temp , TAB_INFO_NROWS )
If n = 0 Then exit sub End If
For i = 1 to n
Fetch rec i From ~temp
aobj = ~temp.obj
objtype = ObjectInfo(aobj,OBJ_INFO_TYPE)
If objtype = OBJ_TEXT Then ' если объект текстовый
objtxtstr = ObjectInfo(aobj,OBJ_INFO_TEXTSTRING)' извлекаем текст из объекта
' меняем в строке objtxtstr все точки на запятые
objtxtstr = MyReplace(objtxtstr, "." , "," )
If objtxtstr <> "" Then
m= m+1
Alter Object aobj Info OBJ_INFO_TEXTSTRING, objtxtstr
Update ~temp Set obj = aObj where RowID= i
End If
End If
next
If m > 0 Then print "Заменено " + m +" строк" End If
commit table table_name
close table ~temp
exit_err:
End Sub
function MyReplace(ByVal s as string, ByVal s1 as string, ByVal s2 as string) as string
Dim i, n As Integer
Dim sbufer As string
OnError GoTo exit_err
n = len(s)
If n <= 1 Then exit function End If
For i = 2 to n
If Mid$(s, i, 1) = s1 Then sbufer = Mid$(s, 1, i-1)+s2+ Mid$(s, i, n) End If
next
If sbufer <> "" Then MyReplace = sbufer End If
exit_err:
End function

[xax_nv]

Vovik, спасибо!

[Vovik]

функцию MyReplace необходимо доработать так:

function MyReplace(ByVal s as string, ByVal s1 as string, ByVal s2 as string) as string
Dim i, n As Integer
Dim sbufer As string
OnError GoTo exit_err
n = len(s)
If n <= 1 Then exit function End If
sbufer = s
For i = 2 to n
If Mid$(sbufer, i, 1) = s1 Then sbufer = Mid$(sbufer, 1, i-1)+s2+ Mid$(sbufer, i, n) End If
next
If sbufer <> "" Then MyReplace = sbufer End If
exit_err:
End function

[Lauren23]

Как в карте MapInfo при нажатии на кнопку мыши получиь (считать)
координату точки нажатия В ПИКСЕЛАХ относительно верхнего левого угла раб.области MfhInfo? Может быть какую нибудь DLL (в которой есть данная функция) подключить? Question Rolling Eyes :shock:

[Андрей Могильный]

Это точно функциями WinApi нужно делать. Поищите по форуму, по-моему уже что-то подобное детально обсуждали.

[Nick4]

Через hook можно перехватить координаты мыши в пикселях. Есть dll.