Why don't you open a text file and write through MB.

I am typing few lines what I have used to create DOS batch files, 
Hope this will help you.


Include "mapbasic.def"

Dim dir, szfile , YYY, X as string
Dim lenth as smallint
Dim i as integer

 Open File "d:\mi\a1.txt" For INPUT As #1
 Open File "d:\mi\a.txt" For Output As #2 

 do while not eof(1)
  input #1 , dir
  Register Table "D:\MI\"+dir+"\Retailer.dbf"  TYPE DBF Charset "WindowsLatin1" Into
  "D:\data\retailers\"+dir+"Retailer.TAB" Open Table 
"D:\data\retailers\"+dir+"Retailer.TAB" Alter
  Table dir+"Retailer" ( modify Rcode Decimal(12,0) ) Interactive print #2 , 
dir+"Retailer   Table
  has " + tableinfo(dir+"retailer", tab_info_nrows) + " records and  " + 
tableinfo(dir+"retailer",
  tab_info_ncols) + "   Columns" Print #2, "ColumnName Column Type Column Width" Print 
#2, ""
Dim s_col_name As String, i_col_type As SmallInt, n as integer
  n = 1
  for n = 1 to  tableinfo(dir+"retailer", tab_info_ncols)
  s_col_name = ColumnInfo(dir+"retailer","col"+n,COL_INFO_NAME)
  i_col_type = ColumnInfo(dir+"retailer","col"+n,COL_INFO_TYPE)
  print #2, s_col_name+" "+i_col_type+" 
"+ColumnInfo(dir+"retailer","col"+n,COL_INFO_WIDTH)
  next
  print #2, ""
  print #2, ""



  close all
 loop


HTH



From: Tony Kelava [mailto:[EMAIL PROTECTED]]
Sent: Monday, 20 September 1999 17:41
To: [EMAIL PROTECTED]
Subject: MI Batch Printing Workspaces


Greetings All,

Has anyone come across an application that can batch process multiple
MapInfo workspaces at once. We have about 50 workspaces that we want to
print out.

Thanks

Tony

----------------------------------------------------------------------
===================================================
Aditya 
Executive (Systems) 
Information Systems Department
GCMMF, Anand
E-mail me at :[EMAIL PROTECTED]
Web Site: http://www.amul.com
===================================================
----------------------------------------------------------------------
To unsubscribe from this list, send e-mail to [EMAIL PROTECTED] and put
"unsubscribe MAPINFO-L" in the message body, or contact [EMAIL PROTECTED]

Reply via email to