At 07:57 PM 1/4/2009, Michael J. Sinclair, MD wrote:
I want to be able to import all the filenames in a folder into
a column in a table. I also want to be able to import the entire
pathname\filename.ext into a different column.
Is there an easy way to do that or do I need do things like....
output temp.txt
dir
output screen
load tablename from temp.txt
etc....
Mike,
Here's how:
Follow these steps ...
01. Define a table to store file name and full path.
Example:
-- Start here ...
-- Define table
SET ERROR MESSAGE 2038 OFF
DROP TABLE `ImportedFiles`
SET ERROR MESSAGE 2038 ON
CREATE TABLE `ImportedFiles` +
(`ImportedFileID` INTEGER, +
`ImportedFileName` TEXT (64), +
`ImportedFilePath` TEXT (100), +
`UserName` TEXT (16), +
`FileDateAndTime` DATETIME)
AUTONUM `ImportedFileID` IN `ImportedFiles` +
USING 100001 1 NONUM
COMMENT ON `ImportedFileID` IN `ImportedFiles` +
IS 'Imported File ID'
COMMENT ON `ImportedFileName` IN `ImportedFiles` +
IS 'Imported File Name'
COMMENT ON `ImportedFilePath` IN `ImportedFiles` +
IS 'Imported File Path'
COMMENT ON `UserName` IN `ImportedFiles` +
IS 'User Name'
COMMENT ON `FileDateAndTime` IN `ImportedFiles` +
IS 'Date and Time'
COMMENT ON TABLE `ImportedFiles` IS +
'List of Imported Files'
RETURN
-- End here ...
02. Use the following code to Load the Text File(s) with all
details (for R:BASE 7.6 for Windows).
-- LoadFileNamesAndPath76.RMD
-- January 4, 2009
-- Required Plugins:
-- LoadFileNamePlusPlus76.RBL (for 7.6 for Windows)
CLS
CLEAR VARIABLES vDefaultFolder,vQuotes,vFileName,vFilePath
SET VAR vDefaultFolder TEXT = (CVAL('CURRDIR'))
SET VAR vQuotes TEXT = (CVAL('QUOTES'))
SET VAR vFileName TEXT = NULL
SET VAR vFilePath TEXT = NULL
LABEL LoadFileName
SET VAR vString = +
('PLUGIN LoadFileNamePlusPlus76.RBL'&.vQuotes + +
'vResult' + +
'|INITIAL_DIR'&.vDefaultFolder + +
'|MULTISELECT OFF' + +
'|TITLE Select Text File' + +
'|VIEW_MODE LIST' + +
'|OK_BUTTON_CAPTION Load File' + +
'|FILTER Text Files (*.txt)#*.txt'+.vQuotes)
&vString
IF vResult <> 'OK' THEN
GOTO Done
ELSE
SET VAR vFileName = .vLFNFileNameS1
SET VAR vFilePath = .vLFNFileName1
INSERT INTO ImportedFiles +
(ImportedFileName,ImportedFilePath,UserName,FileDateAndTime) +
VALUES +
(.vFileName,.vFilePath,(CVAL('NetUser')),.#NOW)
ENDIF
LABEL Done
CLS
CLEAR VARIABLES vQuotes,vResult,vLFNFileCount,vLFNFileName1, +
vLFNFilePath1,vLFNFileNameS1,vLFNFileExt1,vLFNFileDT1,vLFNFileSize1, +
vString,vFileName,vFilePath,vQuotes,vDefaultFolder
RETURN
03. Use the following code to Load the Text File(s) with all
details (for R:BASE Turbo V-8 for Windows).
-- LoadFileNamesAndPath80.RMD
-- January 4, 2009
-- Required Plugins:
-- LoadFileNamePlusPlus80.RBL (for Turbo V-8 for Windows)
CLS
CLEAR VARIABLES vDefaultFolder,vQuotes,vFileName,vFilePath
SET VAR vDefaultFolder TEXT = (CVAL('CURRDIR'))
SET VAR vQuotes TEXT = (CVAL('QUOTES'))
SET VAR vFileName TEXT = NULL
SET VAR vFilePath TEXT = NULL
LABEL LoadFileName
SET VAR vString = +
('PLUGIN LoadFileNamePlusPlus80.RBL'&.vQuotes + +
'vResult' + +
'|INITIAL_DIR'&.vDefaultFolder + +
'|MULTISELECT OFF' + +
'|TITLE Select Text File' + +
'|VIEW_MODE LIST' + +
'|OK_BUTTON_CAPTION Load File' + +
'|FILTER Text Files (*.txt)#*.txt'+.vQuotes)
&vString
IF vResult <> 'OK' THEN
GOTO Done
ELSE
SET VAR vFileName = .vLFNFileNameS1
SET VAR vFilePath = .vLFNFileName1
INSERT INTO ImportedFiles +
(ImportedFileName,ImportedFilePath,UserName,FileDateAndTime) +
VALUES +
(.vFileName,.vFilePath,(CVAL('NetUser')),.#NOW)
ENDIF
LABEL Done
CLS
CLEAR VARIABLES vQuotes,vResult,vLFNFileCount,vLFNFileName1, +
vLFNFilePath1,vLFNFileNameS1,vLFNFileExt1,vLFNFileDT1,vLFNFileSize1, +
vString,vFileName,vFilePath,vQuotes,vDefaultFolder
RETURN
That's all there is to it!
Very Best R:egards,
Razzak.
