Hi again, I just missed to replace the code in the last part with the right syntax for the documents folder - and not my own ;-)
'**************code - Open file************* Run Command "Register Table "+Chr$(34)+GetFolderPath$(FOLDER_MYDOCS)+"\TableList.txt"+Chr$(34)+ " TYPE ASCII Delimiter 9 Charset "+Chr$(34)+"WindowsLatin1"+Chr$(34)+ " Into "+Chr$(34)+GetFolderPath$(FOLDER_MYDOCS)+"\TableList.tab"+Chr$(34) Run Command "Open Table "+Chr$(34)+GetFolderPath$(FOLDER_MYDOCS)+"\TableList.tab"+Chr$(34) Browse * From Tablelist '**************code end************* NB: Beware of word wrap in both messages ! Venligst Søren Breddam -----Oprindelig meddelelse----- Fra: Søren Breddam [mailto:[EMAIL PROTECTED] Sendt: 25. oktober 2005 00:30 Til: 'Ali, Naz @ Vancouver'; MI-L (E-mail) Emne: Re: MI-L Printing Table List from Layer Control Hi, If you've got Mapbasic it's quite easy: '**************code - Print all open tables to a text file************* Include "Mapbasic.def" Dim i As Integer Open File GetFolderPath$(FOLDER_MYDOCS)+"\TableList.txt" For Output As #1 CharSet "WindowsLatin1" For i = 1 to NumTables() Print #1, TableInfo(i,TAB_INFO_NAME) Next Close File #1 Run Program "Notepad.exe "+Chr$(34)+GetFolderPath$(FOLDER_MYDOCS)+"\TableList.txt"+Chr$(34) '**************code end************* '**************code - Print all tables from front mapper to a text file************* Include "Mapbasic.def" Dim i As Integer Open File GetFolderPath$(FOLDER_MYDOCS)+"\TableList.txt" For Output As #2 CharSet "WindowsLatin1" Print Chr$(12) For i = 1 to MapperInfo(FrontWindow(),MAPPER_INFO_LAYERS ) Print #2, LayerInfo(FrontWindow(),i,LAYER_INFO_NAME) Print LayerInfo(FrontWindow(),i,LAYER_INFO_NAME) Next Close File #2 Run Program "Notepad.exe "+Chr$(34)+GetFolderPath$(FOLDER_MYDOCS)+"\TableList.txt"+Chr$(34) '**************code end************* '**************code - Open file************* Run Command "Register Table "+Chr$(34)+"C:\Documents and Settings\sb\Dokumenter\TableList.txt"+Chr$(34)+ " TYPE ASCII Delimiter 9 Charset "+Chr$(34)+"WindowsLatin1"+Chr$(34)+ " Into "+Chr$(34)+"C:\Documents and Settings\sb\Dokumenter\TableList.TAB"+Chr$(34) Run Command "Open Table "+Chr$(34)+GetFolderPath$(FOLDER_MYDOCS)+"\TableList.tab"+Chr$(34) Browse * From Tablelist '**************code end************* Venligst Søren Breddam -----Oprindelig meddelelse----- Fra: Ali, Naz @ Vancouver [mailto:[EMAIL PROTECTED] Sendt: 20. oktober 2005 20:27 Til: MI-L (E-mail) Emne: MI-L Printing Table List from Layer Control Hi List: Is there a way to print or import the tables from the Layer Control into any text edit program? I just need to compare some tables in a afew workspaces and am trying to figure out an easier way. Thanks Naz Ali | GIS Marketing Services CB Richard Ellis Limited 1111 West Georgia Street, Suite 600 | Vancouver, BC V6E 4M3 T 604 662 5173 | F 604 684 9368 <mailto:[EMAIL PROTECTED]> [EMAIL PROTECTED] | <http://www.cbre.com/> www.cbre.com <http://www.cbre.com/cbre_logo.jpg> --------------------------------------------------------------------- List hosting provided by Directions Magazine | www.directionsmag.com | To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] Message number: 18448 --------------------------------------------------------------------- List hosting provided by Directions Magazine | www.directionsmag.com | To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] Message number: 18449
