Loading Multiple Text files

Hi! I've got several archived text files - 040107.txt,
040207.txt, 040307.txt, for example - and I want to be able to
build a dynamic link which loads whichever file is selected into
the Flash movie. This list needs to be able to build itself as I
write new files every day and add the old ones to the archive. I'm
stumped. How can I do this?

If you are using XML to load data, then use the CDATA to wrap
the html text.
If you are using LoadVars to load data, be sure you do not
have any & in the text content. If you do convert to hex.
Bottom line is you need to trace the text you load to see
what you are getting.
Flash should show HTML if you have the
TextField.htmll
property set to true which is also done in IDE with "Render Text as
HTML". But you must use the
TextField.htmlText
property to set the text.
Finally malformed HTML in Flash TextFields generally dies
like you describe.
You should be able to test the display of data in dynamic
TextFields with a simple Flash movie containing the TextField and
the text stored in a variable and then loaded into the htmlText
property. If it is not working there then you have to look at the
data.

Similar Messages

Load multiple text files

Hey!
Does anybody can help me to make an Excel VBA macro code in order to import data from text files into one Excel spread sheet? I want to create User Form with dropdown list where user can select start and end date of interest and macro code
will import bunch of text files depending on user demands... I am thinking to omit time tail (meaning that user can only specify date and I will add filename tail in macro code).
My text files are named: 20130619004948DataLog.txt (meaning: yyyy mm dd hh mm ss). Text file contains recordings for each 15 seconds... It would be great to omit time tail (meaning that user can only specify date) and make additional macro to add the time
tail to the file name, since it does not change from day to day. Text files for one day of interest (I have text files covering whole year):
20130619004948DataLog.txt
20130619014948DataLog.txt
20130619024948DataLog.txt
20130619034948DataLog.txt
20130619044948DataLog.txt
20130619054948DataLog.txt
20130619064948DataLog.txt
20130619074948DataLog.txt
20130619084948DataLog.txt
20130619094948DataLog.txt
20130619104948DataLog.txt
20130619114948DataLog.txt
20130619124948DataLog.txt
20130619134948DataLog.txt
20130619144948DataLog.txt
20130619154948DataLog.txt
20130619164948DataLog.txt
20130619174948DataLog.txt
20130619184948DataLog.txt
20130619194948DataLog.txt
20130619204948DataLog.txt
20130619214948DataLog.txt
20130619224948DataLog.txt
20130619234948DataLog.txt

I am pretty sure this same question was asked about 2 weeks ago, and that one never got an answer. How about this?
Sub Read_Text_Files()
Dim sPath As String
Dim oPath, oFile, oFSO As Object
Dim r, iRow As Long
Dim wbImportFile As Workbook
Dim wsDestination As Worksheet
'Files location
sPath = "C:\Test\"
Set wsDestination = ThisWorkbook.Sheets("Sheet1")
r = 8
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oPath = oFSO.GetFolder(sPath)
Application.ScreenUpdating = False
For Each oFile In oPath.Files
If LCase(Right(oFile.Name, 4)) = ".txt" Then
'open file to impor
Workbooks.OpenText Filename:=oFile.Path, Origin:=65001, StartRow:=1, DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, FieldInfo:=Array(1, 1), _
TrailingMinusNumbers:=True
Set wbImportFile = ActiveWorkbook
For iRow = 1 To wbImportFile.Sheets(1).UsedRange.Rows.Count
wbImportFile.Sheets(1).Rows(iRow).Copy wsDestination.Rows(r)
r = r + 1
Next iRow
wbImportFile.Close False
Set wbImportFile = Nothing
End If
Next oFile
End Sub
Or, this.
Sub TxtImporter()
Dim f As String, flPath As String
Dim i As Long, j As Long
Dim ws As Worksheet
Application.DisplayAlerts = False
Application.ScreenUpdating = False
flPath = ThisWorkbook.Path & Application.PathSeparator
i = ThisWorkbook.Worksheets.Count
j = Application.Workbooks.Count
f = Dir(flPath & "*.txt")
Do Until f = ""
Workbooks.OpenText flPath & f, _
StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=True, _
Space:=False, Other:=False, TrailingMinusNumbers:=True
Workbooks(j + 1).Worksheets(1).Copy After:=ThisWorkbook.Worksheets(i)
ThisWorkbook.Worksheets(i + 1).Name = Left(f, Len(f) - 4)
Workbooks(j + 1).Close SaveChanges:=False
i = i + 1
f = Dir
Loop
Application.DisplayAlerts = True
End Sub
That's just a generic sample. So, basically, I'd modify the code like this.
Sub TxtImporter()
Dim f As String, flPath As String
Dim i As Long, j As Long
Dim ws As Worksheet
Application.DisplayAlerts = False
Application.ScreenUpdating = False
'flPath = ThisWorkbook.Path & Application.PathSeparator
flPath = "C:\Users\Ryan\Desktop\Dates\"
i = ThisWorkbook.Worksheets.Count
j = Application.Workbooks.Count
f = Dir(flPath & "*.txt")
VAL1 = ThisWorkbook.Sheets("Sheet1").Cells(1, 1).Value
VAL2 = ThisWorkbook.Sheets("Sheet1").Cells(1, 2).Value
f = Left(f, 8)
If f = VAL1 And f = VAL2 Then
Do Until f = ""
Workbooks.OpenText flPath & f, _
StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=True, _
Space:=False, Other:=False, TrailingMinusNumbers:=True
Workbooks(j + 1).Worksheets(1).Copy After:=ThisWorkbook.Worksheets(i)
ThisWorkbook.Worksheets(i + 1).Name = Left(f, Len(f) - 4)
Workbooks(j + 1).Close SaveChanges:=False
i = i + 1
f = Dir
Loop
End If
Application.DisplayAlerts = True
End Sub
That will NOT work, because I don't know how you want to handle the time and 'DataLog.txt' part of the file name. Just decide what you want to do with that part of it, and modify the code appropriately.
Also, I'm assuming the dates (without times) are in A1 and B1 in Sheet1.
I think this gets you 99% of the way there. Post back if you have specific questions.
Knowledge is the only thing that I can give you, and still retain, and we are both better off for it.

Loading multiple text files from a folder into oracle clob field

I would like to load about 300 word documents into a oracle clob field with each document inserted as a separate record.
I'm not quite sure how to go about doing this. Is there a utility in oracle that would do this?
I've looked at sql loader and utl_file but both require the name of the file. Is there a way I can do this?
If its not possible using just oracle, does anyone know how I can do this in combination with perl?
Many Thanks
Sam

I have no experience with this, but pl see if MOS Doc 73787.1 (How to Read A Binary File into BLOB Using PL/SQL) can help.
Essentially, you will have to write code to loop thru all 300 files to load them into the database
HTH
Srini

How can I use sql loader to load a text file into a table

Hi, I need to load a text file that has records on lines tab delimited into a table. How would I be able to use the sql loader to do this? I am using korn shell to do this. I am very new at this...so any kind of helpful examples or documentation would be very appreciated. I would love to see some examples to help me understand if possible. I need help! Thanks alot!

You should check out the documentation on SQL*Loader in the online Oracle document titled Utilities. Here's a link to the 9iR2 version of it: http://otn.oracle.com/docs/products/oracle9i/doc_library/release2/server.920/a96652/part2.htm#436160
Hope this helps.

How to load a text file?

I'm trying to load a text file and I've run into a wall. So
far, I've loaded swf files, image files and XML files without
problems. But the text files just don't seem to load.
It's not a tough situation. The files are in the same
directory as the application. When I run it, I see no sign that the
file has loaded, but haven't found the error trapping to tell me
what is (not) going on.
The code below was culled from examples on the web, they seem
fairly consistent, and they are copied pretty much exactly. and I
put them both into a single action to test them.
Any clues as to what is not happening? I need to read an old
txt data file that was used with AS2, with pairs of names and
variables. The first example just reads a couple of variables. The
second just reads some random text. I'm just trying to see what
works here, so I can incorporate working code into the real
program.
Thanks for your help.

Thanks Joergen,
I put in the changes you suggested and still no sign that the
files are even being opened., but it's very good to have the
feedback. Just the fact that someone is getting them to run gives
me confidence in the basic code. I'll hack on it more and let you
know what the answer turns out to be for me.
Thanks.

How to load a text file int JEditorPane and highlight some words (Urgent !)

I want to load a text file into a JEditorPane and then highlights some keywords such as while,if and else.I am using an EditorKit in order to style the JEditorPane. I have no difficulty while giving the input through the keyboard but lots of exceptions are thrown if i try to load the string from a file.

Hi,
I think the setCharacterAttributes(int offset, int length, AttributeSet s, boolean replace) will solve the problem.
You can create your own Styled Document and set it to the Editor Pane.

Loading Multiple Flat File in to BI System with one InfoPackage

Greetings,
i have developed a routine to Load Multiple Flate File in one InfoPackage, but it doesn't work. Only the Last File are loaded. Who can Help me?
Loading 'R:\Verzeichnis \ing_wan_b_002.fall.csv' to 'R:\Verzeichnis \ing_wan_b_240*.fall.csv'
Routine:
DATA: VerzUndDateiname TYPE string value 'R:\Verzeichnis \ing_wan_b_000.fall.csv',
      VerzUndDateinameKomplett TYPE string,
      count TYPE i value 2,
      countN(3) TYPE n.
WHILE count <= 240.
countN = count.
VerzUndDateinameKomplett = VerzUndDateiname.
REPLACE '000' WITH zaehlerN
              INTO VerzUndDateinameKomplett.
p_filename = VerzUndDateinameKomplett.
count = count + 1.
ENDWHILE.
Best Regards
Jens
Edited by: JB6493 on May 18, 2009 1:03 PM
Edited by: JB6493 on May 18, 2009 1:07 PM

Hello Jens,
you have to process the InfoPackage 239 times. Your routine would be executed once during one processing of the InfoPackage. This would run the WHILE statement and end up with the last filename after 239 iterations.
Either try to concatenate the files you want to load (if possible) and load them in one go. Alternatively you could try to use a process chain to run the InfoPackage 239 times.
Kind regards,
Christoph

Loading Multiple Flat File around 80+

Hi,
Loading multiple flat file in to BI system.
My issue: I got a scenerio of loading multiple i.e., 80+ flat file into BI system every month and my client want it to be done through process chain r automation with out manual intervention.
Can any one suggest me how can i achiev this one.
Regards,
Prabhakar.

Hi All,
We have developed a logic to upload multiple flat file at a time i.e., .CSV file. Please find below is the logic regarding that routine.
*+ program filename_routine.
Global code
$$ begin of global - insert your declaration only below this line -
Enter here global variables and type declarations
as well as additional form routines, which you may call from the
main routine COMPUTE_FLAT_FILE_FILENAME below
data : v_filename type string.
data : v_foldername type string.
data : v_uploadfile type string.
data: v_download_file type string.
data : v_ext(4) type c.
data : v_FILE_EXISTS type c.
data : v_file type DXFILE-FILENAME.
data : v_count(3) type c.
data : v_length type i.
TYPES: BEGIN OF TY_file,
        LINE(900),
      END OF TY_file.
DATA: GIT_file TYPE TABLE OF TY_file.
$$ end of global - insert your declaration only before this line   -
form compute_flat_file_filename
using    p_infopackage type rslogdpid
           p_datasource   type rsoltpsourcer
           p_logsys       type rsslogsys
changing p_filename     type RSFILENM
           p_subrc        like sy-subrc.
$$ begin of routine - insert your code only below this line        -
This routine will be called by the adapter,
when the infopackage is executed.
v_count = 1.
*---- As per the folder location of the files & system we have to change
*the path fo the folder in the below variable i.e., 'c:\............
v_foldername =
'C:\Documents and Settings\Prabhakar-HP\Desktop\test\'.
*---- As per the Prefix of the files like 'CSI_01_..' we have change the
*prefix if required in the below variable i.e., 'CSI_01_..', IF REQUIRED
*OR IF WANT TO CHANGE THE PREFIX TO SOME OTHER.
v_filename = 'CSI_01_'.
v_ext = '.csv'.
condense v_count.
concatenate   v_foldername
                v_filename
                v_count
                v_ext       into v_uploadfile.
v_file = v_uploadfile.
CALL FUNCTION 'DX_FILE_EXISTENCE_CHECK'
    EXPORTING
      FILENAME       = v_file
      PC             = 'X'
    IMPORTING
      FILE_EXISTS    = v_FILE_EXISTS
    EXCEPTIONS
      RFC_ERROR      = 1
      FRONTEND_ERROR = 2
      NO_AUTHORITY   = 3
      OTHERS         = 4.
IF SY-SUBRC <> 0.
    MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
    WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
while v_FILE_EXISTS = 'X'.
    v_file = v_uploadfile.
    CALL FUNCTION 'DX_FILE_EXISTENCE_CHECK'
      EXPORTING
        FILENAME       = v_file
        PC             = 'X'
      IMPORTING
        FILE_EXISTS    = v_FILE_EXISTS
      EXCEPTIONS
        RFC_ERROR      = 1
        FRONTEND_ERROR = 2
        NO_AUTHORITY   = 3
        OTHERS         = 4.
    IF SY-SUBRC <> 0.
      MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
      WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    ENDIF.
    if v_file_exists = 'X'.
      CALL FUNCTION 'GUI_UPLOAD'
        EXPORTING
          FILENAME                = v_uploadfile
          FILETYPE                = 'ASC'
          HAS_FIELD_SEPARATOR     = 'X'
        TABLES
          DATA_TAB                = GIT_file
        EXCEPTIONS
          FILE_OPEN_ERROR         = 1
          FILE_READ_ERROR         = 2
          NO_BATCH                = 3
          GUI_REFUSE_FILETRANSFER = 4
          INVALID_TYPE            = 5
          NO_AUTHORITY            = 6
          UNKNOWN_ERROR           = 7
          BAD_DATA_FORMAT         = 8
          HEADER_NOT_ALLOWED      = 9
          SEPARATOR_NOT_ALLOWED   = 10
          HEADER_TOO_LONG         = 11
          UNKNOWN_DP_ERROR        = 12
          ACCESS_DENIED           = 13
          DP_OUT_OF_MEMORY        = 14
          DISK_FULL               = 15
          DP_TIMEOUT              = 16
          OTHERS                  = 17.
      IF SY-SUBRC <> 0.
       MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
               WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
      elseif sy-subrc = 0.
**----- As per the REQUIRMENT, want to change the down loading file
*path means we have to change the path in the below variable i.e.,
*'c:\.......
v_download_file =
'C:\Documents and Settings\Prabhakar-HP\Desktop\test\satheesh.CSV'.
        CALL FUNCTION 'GUI_DOWNLOAD'
          EXPORTING
            FILENAME                = v_download_file
            FILETYPE                = 'ASC'
            APPEND                  = 'X'
          TABLES
            DATA_TAB                = git_file
          EXCEPTIONS
            FILE_WRITE_ERROR        = 1
            NO_BATCH                = 2
            GUI_REFUSE_FILETRANSFER = 3
            INVALID_TYPE            = 4
            NO_AUTHORITY            = 5
            UNKNOWN_ERROR           = 6
            HEADER_NOT_ALLOWED      = 7
            SEPARATOR_NOT_ALLOWED   = 8
            FILESIZE_NOT_ALLOWED    = 9
            HEADER_TOO_LONG         = 10
            DP_ERROR_CREATE         = 11
            DP_ERROR_SEND           = 12
            DP_ERROR_WRITE          = 13
            UNKNOWN_DP_ERROR        = 14
            ACCESS_DENIED           = 15
            DP_OUT_OF_MEMORY        = 16
            DISK_FULL               = 17
            DP_TIMEOUT              = 18
            FILE_NOT_FOUND          = 19
            DATAPROVIDER_EXCEPTION = 20
            CONTROL_FLUSH_ERROR     = 21
            OTHERS                  = 22.
        IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
        ENDIF.
        refresh git_file.
      ENDIF.
    endif.
    if v_file_exists = 'X'.
      if p_subrc = 0.
        v_count = v_count + 1.
        condense v_count.
        concatenate
             v_foldername
             v_filename
             v_count
             v_ext into v_uploadfile.
      endif.
    else.
    endif.
endwhile.
v_uploadfile = v_download_file.
p_filename = v_uploadfile.
p_subrc = 0.
$$ end of routine - insert your code only before this line         -
endform. +*
Reagrds,
Prabhakar.

Loading a text file on startup into a hashtable

I am trying to load to seperate textfiles into the same hashtable.
The textfiles are something like an employee and employee number everything goes in at the same time. How do i load these text files into the hashtable. Also any good tutorials or code samples on hashtables would be greatly appreciated.
Thanks In Advance

You read the text files, one line at a time, and break up each line in whatever way you need to. Then you choose the bits to put in the hashtable (key and value) for each line and put those bits into the hashtable.
http://java.sun.com/docs/books/tutorial/essential/index.html
http://java.sun.com/docs/books/tutorial/collections/index.html

Loading a text file to a buffer

Hi,
I have a very simple question,
I have a text file which I want to read and load it in a string buffer, but I don't want to user BufferedReader and append line by line,
is it possible to load the text file into StringBuffer without any loops / appends?
Thanks,
S.

File file = new File("fileName.fileExtension");
byte[] c = new char[file.length()];
FileReader reader = new FileReader(file);
try{
reader.read(c);
}catch(IOException e) { System.out.println("An error has ocurred");}
String makeMeString = new String(c);
Stringbuffer buff = new StringBuffer(makeMeString);

Loading a text file from a relative location in shockwave

Hi all
I'm REALLY sorry I have to post about such an inane problem.
I've googled this and looked in forums and found several
suggestions but none of them are working for me. I want to load a
text file from the same directory as my movie. I can get this
working in authoring mode, in a projector, and in a shockwave movie
on the local machine (using getNetText("/text.txt")).
But when i put the shockwave movie on a server, it does NOT
work. The macromedia documentation says that getNetText works with
relative URLs. But when I put in the full URL, it does work, so
obviously the shockwave movie is having a problem finding the text
file which IS in the same directory as it.
Any suggestions / ideas? All i want to do is access a text
file :)
Sorry again for such a lame problem
Mike

thanks - this worked. I also had to not use a repeat loop to
wait for netDone() to return true.
Thanks again
MIke

Error loading a text file during creation of data load rule

Hi,
I am trying to load this text file but whenever I open File -> Open Data File and then click on the file, it says "Invalid Blank Character in name". I tried changing the name of the file and everything but I do not understand what it really means. Can anyone help me out please? This seems like a simple error but I am unable to figure it out. Thanks.
-- Adi

As Glenn said, there should not be any space in the path that causes the error.For instance if you have ur file in the desktop(C:\Documents and Settings\Desktop), there would be space in between Documents and Settings. To avoid this, you could directly save in your local disk drive(C:\, D:, E:\).
Regards
Cnee

Loading a text file in a gzip or zip archive using an applet to a String

How do I load a text file in a gzip or zip archive using an applet to a String, not a byte array? Give me both gzip and zip examples.

This doesn't work:
          try
               java.net.URL url = new java.net.URL(getCodeBase() + filename);
               inputStream = new java.io.BufferedInputStream(url.openStream());
               if (filename.toLowerCase().endsWith(".txt.gz"))
                    inputStream = (java.io.InputStream)(new java.util.zip.GZIPInputStream(inputStream));
               else if (filename.toLowerCase().endsWith(".zip"))
                    java.util.zip.ZipInputStream zipInputStream = new java.util.zip.ZipInputStream(inputStream);
                    java.util.zip.ZipEntry zipEntry = zipInputStream.getNextEntry();
                    while (zipEntry != null && (zipEntry.isDirectory() || !zipEntry.getName().toLowerCase().endsWith(".txt")))
                         zipEntry = zipInputStream.getNextEntry();
                    if (zipEntry == null)
                         zipInputStream.close();
                         inputStream.close();
                         return "";
                    inputStream = zipInputStream;
               else
               byte bytes[] = new byte[10000000];
               byte s;
               int i = 0;
               while (((s = inputStream.read())) != null)
                    bytes[i++] = s;
               inputStream.close();
        catch (Exception e)
          }

"how to load a text file to oracle table"

hi to all
can anybody help me "how to load a text file to oracle table", this is first time i am doing, plz give me steps.
Regards
MKhaleel

Usage: SQLLOAD keyword=value [,keyword=value,...]
Valid Keywords:
userid -- ORACLE username/password
control -- Control file name
log -- Log file name
bad -- Bad file name
data -- Data file name
discard -- Discard file name
discardmax -- Number of discards to allow (Default all)
skip -- Number of logical records to skip (Default 0)
load -- Number of logical records to load (Default all)
errors -- Number of errors to allow (Default 50)
rows -- Number of rows in conventional path bind array or between direct path data saves (Default: Conventional path 64, Direct path all)
bindsize -- Size of conventional path bind array in bytes (Default 256000)
silent -- Suppress messages during run (header, feedback, errors, discards, partitions)
direct -- use direct path (Default FALSE)
parfile -- parameter file: name of file that contains parameter specifications
parallel -- do parallel load (Default FALSE)
file -- File to allocate extents from
skip_unusable_indexes -- disallow/allow unusable indexes or index partitions (Default FALSE)
skip_index_maintenance -- do not maintain indexes, mark affected indexes as unusable (Default FALSE)
commit_discontinued -- commit loaded rows when load is discontinued (Default FALSE)
readsize -- Size of Read buffer (Default 1048576)
external_table -- use external table for load; NOT_USED, GENERATE_ONLY, EXECUTE
(Default NOT_USED)
columnarrayrows -- Number of rows for direct path column array (Default 5000)
streamsize -- Size of direct path stream buffer in bytes (Default 256000)
multithreading -- use multithreading in direct path
resumable -- enable or disable resumable for current session (Default FALSE)
resumable_name -- text string to help identify resumable statement
resumable_timeout -- wait time (in seconds) for RESUMABLE (Default 7200)
PLEASE NOTE: Command-line parameters may be specified either by position or by keywords. An example of the former case is 'sqlldr scott/tiger foo'; an example of the latter is 'sqlldr control=foo userid=scott/tiger'. One may specify parameters by position before but not after parameters specified by keywords. For example, 'sqlldr scott/tiger control=foo logfile=log' is allowed, but 'sqlldr scott/tiger control=foo log' is not, even though the position of the parameter 'log' is correct.
SQLLDR USERID=GROWSTAR/[email protected] CONTROL=D:\PFS2004.CTL LOG=D:\PFS2004.LOG BAD=D:\PFS2004.BAD DATA=D:\PFS2004.CSV
SQLLDR USERID=GROWSTAR/[email protected] CONTROL=D:\CLAB2004.CTL LOG=D:\CLAB2004.LOG BAD=D:\CLAB2004.BAD DATA=D:\CLAB2004.CSV
SQLLDR USERID=GROWSTAR/[email protected] CONTROL=D:\GROW\DEACTIVATESTAFF\DEACTIVATESTAFF.CTL LOG=D:\GROW\DEACTIVATESTAFF\DEACTIVATESTAFF.LOG BAD=D:\GROW\DEACTIVATESTAFF\DEACTIVATESTAFF.BAD DATA=D:\GROW\DEACTIVATESTAFF\DEACTIVATESTAFF.CSV

Setting Font for converting multiple text files into PDF using VB 6.0

Dear All,
Am converting multiple text files into PDF using VB6.0. Currently, am unable to control the font face and size for the generated files. Below is the procedure am using for each file;
Public Sub proc_convert_to_PDF(srcFilename As String, destFilename As String)
Dim p_AcroApp As CAcroApp
Dim p_VDoc As CAcroAVDoc
Dim p_DDoc As CAcroPDDoc
Dim IsOk As Boolean
Set p_AcroApp = CreateObject("AcroExch.App")
Set p_VDoc = CreateObject("AcroExch.AVDoc")
Call p_VDoc.Open(srcFilename, "")
Set p_VDoc = p_AcroApp.GetActiveDoc
If p_VDoc.IsValid Then
Set p_DDoc = p_VDoc.GetPDDoc
' Fill in pdf properties.
p_DDoc.SetInfo "Title", Format(Date, "dd-mm-yyy")
p_DDoc.SetInfo "Subject", srcFilename
If p_DDoc.Save(1 Or 4 Or 32, destFilename) <> True Then
MsgBox "Failed to save " & srcFilename
End If
p_DDoc.Close
End If
'Close the PDF
p_VDoc.Close True
p_AcroApp.Exit
'Clear Variables
Set p_DDoc = Nothing
Set p_VDoc = Nothing
Set p_AcroApp = Nothing
End Sub
What I need;
1) to be able to set the font face of the destination file ( destFilename)
2) to be able to set the font size of the destination file ( destFilename)
Am using Adobe Acrobat 7.0 Type Library
Kindly Help.
Thanks in advance

We didn't say it doesn't work. We said it isn't supported.
There are a number of other ways to make a PDF. The one which would
give the most control is if your application directly printed to GDI,
controlling the font directly. This could print to Adobe PDF.
You could look for an application that gives control of font for
printing.
You could use a text-to-PostScript system and distill the result. You
could even look for a non-Adobe text-to-PDF.
Working in the unsupported and dangerous world you chose, the font
size for text conversion is set (and this is very bad design from
Adobe) in the settings for Create PDF > From Web Page. There is no API
to this.
Aandi Inston

Loading Multiple Text files

Similar Messages

Maybe you are looking for