Skrivning til fil, fast længde

Er det her noget som kan bruges:

Dim text As String
Private Sub Command1_Click()
text = \" Din string \"
\' her tages de 5 første tegn af String text
text = Mid(text, 1, 5)

Open \"C:\\tekst.txt\" For Output As #1
Print #1, text
Close #1
End Sub

Faktisk kan man bare Dimme variablen As String * (længde)

Private Sub Command1_Click()
  Dim strText As String * 15 \' 15 er længden
  strText = \"Dette er en test! denne streng vil blive afkortet ved 15 tegn! \"

  Open \"C:\\text.txt\" For Output As #1
    Print #1, strText
  Close #1
End Sub

Tdaugaard, vil strengen så også fylde 15 tegn i tekstfilen, inkl tomme chars ?

Duer det bare at korte af?
Jeg ville finde ud af hvad der er den længste streng, der kan forekomme, f.eks 200 tegn.

string1=left$(string1 & space(200), 200)

Så bliver alle strenge 200 tegn lange også en med kun ét tegn.

Men det fylder selvfølgelig med alle de blanktegn !!!

M.v.h.  Jørn

Takker

Christian

Det var godt nok smart Jørn, det bliver helt sikkert skrevet ned i mit arkiv under \"C:\\vb\\gudetekst\\\" ;=)