hi

need to pad a few fields been pulled from a database

[code language="VB.NET"]Private Function ReadQueryResults() As Boolean
On Error GoTo ReadQueryResults_Error

Dim sOut As String
Dim j As Integer

Close #17
Open OPXCOM$ + "\SNEX.TXT" For Input As #17
Do While Not (EOF(17))
For i% = 1 To UBound(QU_ARRAY$)
Input #17, QU_ARRAY$(i%)
Next i%

SNEX_ARRAY$(EXE_DESCRIPTION) = "DESCRIPTION"
SNEX_ARRAY$(EXE_AMOUNT) = QU_ARRAY$(QU_AMCLSGPRME)


sOut = ""
For j = 1 To UBound(SNEX_ARRAY$)
sOut = sOut & SNEX_ARRAY$(j)
Next j




Loop
Close #17



ReadQueryResults_Exit:
Exit Function
ReadQueryResults_Error:
ErrorRoutine$ = "ReadQueryResults"
Gerr Err
End Function[/code]



never done this before has anyone any ideas how to do this

thanks