Managing Text Output Format in Notepad

[dynamictiger]

Hi

I am making an Access app for use at work. Part of the function is to output the invoice words to Notepad for transfer to the accounting software easily.

I want to produce a notepad text with format like:

1234 Went to site and did something $120.00
2345 Whilst on site we noticed a screw
was missing in the widget so we
put a plug in $180.00


1334 Job is complete $120.00

I can make the format fit 1234 and 1334 simply enough using space minus length. My issue is how to format 2345 to truncate the lines of text if over a specific length. I cant even see how to start to do this.

[June7]

I am guessing would have to use string manipulation functions (Left, Mid, InStr, Len) in looping structure to progressively write substrings of the lengthy text.

What is 'space'? How many characters should be allowed on each line? You don't want words split? Consider (I picked 50 as the line length):

Function testNotepad(strIn)
Dim strA As String, intP As Integer
While Len(strIn) > 0
    If Len(strIn) > 50 Then
        intP = InStrRev(Left(strIn, 50), " ") - 1
        strA = Left(strIn, intP)
        strIn = Mid(strIn, intP + 2)
    Else
        strA = strIn
        strIn = ""
    End If
    Debug.Print strA
Wend
End Function