En undran hur jag ska göra?
Läser in värde från en textruta till en annan
Men jag vill ha mellanrum mellan vart annat värde

I det här fallet blir det ju en hel rad
Text2 = Mid$(Text1.Text, 1, 10) "3F77182500"

Jag vill få värdet så här istället "3F 77 18 25 00"




Sören

Så här kanske:



Function add_space(InHex As String)
Dim i As Integer
Dim UtHex As String

For i = 1 To Len(InHex) Step 2
UtHex = UtHex & Mid(InHex, i, 2) & " "
Next i
add_space = UtHex
End Function

mvh
Leif

Tack för svaret!
Men jag får inte till det som det var tämkt.



Sören

hej
det funkar ju som Leif skrev,ett annat sätt att skriva samma sak
Option Explicit
Private Sub Command1_Click()
Dim inHex As String, i As Long
inHex = "3F77182500"
For i = 1 To Len(inHex) Step 2
Text1.Text = Text1.Text & Mid$(inHex, i, 2) & " "
Next i
End Sub

Sven

Tack det gick bättre

En fråga till i samma ämne
Om jag vill gå till baka, allstå vända på koden
Från mellanrum till en rad utan mellan rum?




Sören

Nåt sånt kanske? </BR>
/EE </BR>

<code>
Option Explicit
Private Sub Command2_Click()
Dim inHex As String
inHex = "3F 77 18 25 00"
Text1.Text = Replace(Text1.Text, " ", "")
End Sub
</code>

Tackar