<< Click to Display Table of Contents >> Navigation:  Programming Mechworks PDM > DBWCommandShell > Commands Reference > Browser > WriteActualGrid

Description

This command allows the creation of a txt file output with the content of the Browser's active grid

Syntax

call DBWShell("WriteActualGrid outputTXTfile [ListOfFields]")

Parameters

See also

WriteActualGrid
WriteActualTree
WriteTree

Example

sub main()

 DBWInit(TRUE)
 Set fs = CreateObject("Scripting.FileSystemObject")
 Set tfolder = fs.GetSpecialFolder(TemporaryFolder)
 'assign the proper output file and list of fields
 outputTxtFile = tfolder & "\myGridOutput.txt"
 listOfFields = "UNIQUE_ID,T,ID,DESCRIPTION,CONFIGURATION,FILE_DIRECTORY,FILE_NAME"
 'invoke the DBWorks API
 DBWShell("WriteActualGrid " & replace(outputTxtFile," ","|") & " " & listOfFields )
 'read the generated output file
 Dim tokens
 Set f = fs.OpenTextFile( outputTxtFile, ForReading, True )
 Do While f.AtEndOfStream <> True
  'read one line from the text file
  line = f.ReadLine
  'split into an array the comma-limitated arguments
  tokens = Split( line, "," )
  'cut the begin/end quote characters
  for i=0 to ubound(tokens)
   tokens(i) = mid(tokens(i),2,len(tokens(i))-2)
  next
  'display the recordset
  uid= tokens(0)
  t= tokens(1)
  id= tokens(2)
  description= tokens(3)
  configuration= tokens(4)
  fileDir= tokens(5)
  fileName= tokens(6)
  DBWMsgBox _
   "uid=" & uid & vbcrlf &_
   "t=" & t & vbcrlf &_
   "id=" & id & vbcrlf &_
   "description=" & description & vbcrlf &_
   "configuration=" & configuration & vbcrlf &_
   "fileDir=" & fileDir & vbcrlf &_
   "fileName=" & fileName
 Loop
 f.Close
end sub