I detta ex så får jag ju en Text fil med värdet från Textbox1

Private Sub Fil_Click()
Open "Värden.txt" For Output As #1
Print #1, "2002 : " & (Text1.Text) & ""
Close #1
End Sub

Om jag nu har ett värde där, som jag vill ska ha mellanrum
10203040 ska bli 10 20 30 40 osv

Jag har detta ex sen tidigare, går utmärkt i Textboxen
Men jag vill inte att det ska ändra sig i själva Textboxen
Utan bara vid skapande av en textfil

Sub Gruppera(txtBox As TextBox)
Dim a As String, b As Integer, pos As Integer
a = Replace(txtBox, " ", "")
pos = txtBox.SelStart - (Len(Left(txtBox, txtBox.SelStart)) - Len(Replace(Left(txtBox, txtBox.SelStart), " ", "")))
If Len(a) > 0 Then
txtBox = ""
For b = 1 To Int((Len(a) - 1) / 2)
txtBox = txtBox & Mid(a, (b - 1) * 2 + 1, 2) & " "
Next
txtBox = txtBox & Mid(a, Int((Len(a) - 1) / 2) * 2 + 1, 2)
If pos > 0 Then
txtBox.SelStart = pos + (Int((pos - 1) / 2))
End If
End If
End Sub




Gott Nytt År
Sören

Vet inte om jag har förstått rätt...

Prova detta:

<code>
Private Sub Fil_Click()
Open "Värden.txt" For Output As #1
Print #1, "2002 : " & Gruppera(Text1) & ""
Close #1
End Sub
</code>

<code>
Public Function Gruppera(txtBox As TextBox) As String
Dim a As String, b As Integer, pos As Integer
a = Replace(txtBox, " ", "")
If Len(a) > 0 Then
Gruppera = ""
For b = 1 To Int((Len(a) - 1) / 2)
Gruppera = Gruppera & Mid(a, (b - 1) * 2 + 1, 2) & " "
Next
Gruppera = Gruppera & Mid(a, Int((Len(a) - 1) / 2) * 2 + 1, 2)
End If
End Function
</code>


/Micke

Tusen tack, det blev som jag ville...




Sören