Combine rtf files with random access

isnoend07 · March 27th, 2007, 07:37 PM

Hi
I have a file open and save routine that is a udt containing a rtf file using random access. The udt file contains about 25 strings, longs, booleans and integers and the rtf file it is declared like this:
Public Type JobInfo
tmpLastname As String * 25
tmpFirstName As String * 20
tmpAddress As String * 45
tmpCity As String * 20
tmpState As String * 3
etc....
and the MyRTF As Long
End Type

Processed like this:
Public Sub SaveRandomData(ByVal sFilename As String, myData As udtRandomData, MyRTF As String)
Dim b() As Byte
Open sFilename For Binary As #1
Put #1, , myData
If myData.SizeRTF Then
b = MyRTF 'Cast string to Byte Array
Put #1, , b
End If
Close #1
End Sub

Public Sub LoadRandomData(ByVal sFilename As String, myData As udtRandomData, MyRTF As String)
Dim b() As Byte
Open sFilename For Binary As #1
Get #1, , myData
If myData.SizeRTF Then
ReDim b(myData.SizeRTF * 2 - 1) As Byte
Get #1, , b
MyRTF = b 'Cast byte array to string
End If
Close #1
End Sub

I got help writing the above code from EE
How can i modify these open and save subs to accept an additional RTF file?
Don't tell me to use a database
Thank you

BrianWren · March 30th, 2007, 10:21 AM

I hope you donât mid if I make this easier to read:

Code:

Public Type JobInfo
    tmpLastname   As String * 25
    tmpFirstName  As String * 20
    tmpAddress    As String * 45
    tmpCity       As String * 20
    tmpState      As String * 3
    etc....
    and the MyRTF As Long
End Type

Processed like this:

Code:

Public Sub SaveRandomData(ByVal sFilename As String, _
                                myData As udtRandomData, _
                                MyRTF As String)
    Dim b() As Byte

    Open sFilename For Binary As #1
    Put #1, , myData

    If myData.SizeRTF Then
        b = MyRTF     ' Cast string to Byte Array
        Put #1, , b
    End If

    Close #1

End Sub

Public Sub LoadRandomData(ByVal sFilename As String, _
                                myData As udtRandomData, _
                                MyRTF As String)
    Dim b() As Byte

    Open sFilename For Binary As #1
    Get #1, , myData

    If myData.SizeRTF Then
        ReDim b(myData.SizeRTF * 2 - 1) As Byte
        Get #1, , b
        MyRTF = b      ' Cast byte array to string.
    End If

It is a bad idea to hardcode file numbers. You really should use FreeFile to obtain a known-good filenumber. reduces the potential for collisions...

I don't follow your question. Do you want to add an argument to the argument list of the sub(s)?

If that's it, you could add an optional argument (so you could add a value there sometimes, and not add it other times), and then test for the presence of a second value, and process accordingly.

Alternately, you could change the signature to

Code:

Public Sub LoadRandomData(ByVal sFilename As String, _
                                myData    As udtRandomData, _
                                MyRTF()   As String)

and count how many elements there are in the array, repeating the processing for each element.

What say you?

isnoend07 · March 31st, 2007, 01:22 PM

Thanks for your input, your suggestion would work
I have decided to combine my 2 rtf's and save as one
Then use rtf.find xxEndOfSectionOne