#1 Tue 01 October 2002 11:39
- Sebastien Roddier
- Invité
Annonce + variable dans fenetre Mapbasic
Bonjour a tous
2 choses
1 -j'aimerais savoir sil il est possible de recuperer le contenu d'une variable entree dans une fenetre mapbasic a l'aide d'un autre executable mapbasic.
En clair : l'utilisateur entre dans la fenetre une variable puis lance une application mbx qui vient lire le contenu de la variable et la passe en argument a l'application.
Ex : Dans la fen^ter MB :
dim in_cover as string
in_cover : c:essai.Tab
puis on lance l'application run application test.mbx qui vient recuperer le contenu de in_cover avant de poursuivre.
2- je vous annonce la creation d'une nouvelle liste (cartoweb_dev@georezo.net)
dont le but est de s'informer mutuellement de l'avancee des technologies en matiere de cartographie sur internet. N'hesitez donc pas a vous inscrire, je suis sur que les personnes de la liste MI ont des tas d'idees sur le moyen d'automatiser la mise en ligne de l'information geographique. A ce titre je vous conseille aussi les sites suivants :
www.alov.org (sur celui ci vous verrez que l'on peut mettre en ligne des donnees mapinfo moyennant un petit developpement MB)
www.jshape.com
www.geotools.fr
et bien d'autres encore
#2 Tue 01 October 2002 15:24
- AB
- Invité
Re: Annonce + variable dans fenetre Mapbasic
Bonjour,
une solution assez lourde mais qui fonctionne :
vous pouvez passer le contenu de la variable dans une table, et ensuite lire le contenu de la table. Par exemple :
'***************************************************************
Include Mapbasic.def
Declare sub Main
Declare Function MIVar(byval LaVariable as string) as string
Sub Main
Dim Valeur as string
Dim VariableALire as string
VariableALire = toto
Valeur = MIVar(VariableALire)
If valeur 999~False Then
Print Valeur : + Valeur
Else
Print Variable non trouvee
End If
End Sub
Function MIVar(byval LaVariable as string) as string
Dim Chemin as string
Dim TablePass as string
Chemin = PathToDirectory( LocateFile(LOCATE_PREF_FILE))
TablePass = PassVar
OnError Goto Existe
Create Table TablePass (Valeur Char(10)) file Chemin +TablePass+ .tab
TYPE NATIVE Charset WindowsLatin1
OnError Goto 0
OnError Goto VarNotExist
Run Command insert into +TablePass + (col1) values ( +LaVariable+ )
Commit Table TablePass
Select * from TablePass into ~Tempoxya
MIVar = selection.col1
Drop Table TablePass
OnError Goto 0
Exit Function
Existe:
Close table PassVar
Resume 0
VarNotExist:
MIVar = 999~False
Drop Table PassVar
End Function
'***************************************************************
