Ett problem som jag har kommit till
När jag skrivit in hex tecken i text rutan 16st
Då vill jag att det ska bli ett mellanrum automatiskt
1111111111111111 ska bli 11 11 11 11 11 11 11 11




Sören

Jag slängde ihop en funktion för detta lite hastigt...

<code>
Function gruppera(text As String) As String
Dim a As String, b As Integer
a = Replace(text, " ", "")
If Len(a) > 0 Then
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


'Använd såhär, lämpligtvis i validate-händelsen:
Text1 = gruppera(Text1)
</code>

/Johan

Hej...

alltså är det bara två tecken i varje "grupp"?

Så fall kan du använda en for-next slinga och mid för att få fram när det ska vara mellanslag.(" ").

Vill du ha ett kod exemple eller förklara bättre om jag fattade fel, så skriv det bara =) // R-mus


Attans nån kom förre med svar =)
Johan, fin funktion... lite onödigt krånglig bara =), tänk på att personen som frågar ska fatta vad det är som händer =) // R-mus

Tackar för det
Men om jag rensar rutan så får jag ett felmeddelande!

>Men om jag rensar rutan så får jag ett felmeddelande!

Jag vet, därför har jag redan ändrat det (antar att du läste inlägget innan jag ändrade det...)

/Johan

Ja det funkar
Men det nya tecknet blir alltid först
Borde inte det komma sist

hur menar du?

Hej
Fritt ur minnet nåt sånt här skulle du kunna
bygga på.

Private Sub Text1_KeyPress(KeyAscii As Integer)
If Len(Text1.Text) Mod 3 = 0 Then KeyAscii = 32
End Sub

mvh
Sven

Sven, testa vad som händer om du börjar använda piltangenterna och navigera...=)

/Johan

Om jag skriver in 2tecken så är det okej
När man skriver flera tecken så hamnar dom före det första...

Så gör det inte för mig... hur anropar du funktionen? I vilken händelse?

/Johan

Jag använder det som skrev tidigare

Private Sub Text1_Change()
Text1 = gruppera(Text1)
End Sub

Function gruppera(text As String) As String
Dim a As String, b As Integer
a = Replace(text, " ", "")
If Len(a) > 0 Then
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

Skriver jag 11 sedan 22 och 33
Så blir resultatet det här 33 21 12

Jag har ett formulär som endast innehåller Text1 och denna koden, då grupperas texten när rutan avmarkeras... Testa det och berätta om det fungerar eller inte, får du inte ordning på det får du försöka förklara nogrannare hur felet uppstår och visa hur du använder koden...

/Johan

Function gruppera(text As String) As String
Dim a As String, b As Integer
a = Replace(text, " ", "")
If Len(a) > 0 Then
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

Private Sub Text1_Validate(Cancel As Boolean)
Text1 = gruppera(Text1)
End Sub

Hej JohanD

Ang Piltangenter - Navigera

Que ?? Piltangenter har ingen AsciiCode

ha det
Sven

Måste koden köras i change? I sådana fall måste koden göras om lite så att markören hamnar rätt...

/Johan

Sven, jag menade om du sätter markören någon annastans än i slutet av texten...

/Johan

Ja det vore bra om det går att ordna så att jag kan använda (Change)

Ett nytt försök...

<code>
Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
Dim a As String, b As Integer, pos As Integer
a = Replace(Text1, " ", "")
pos = Text1.SelStart - (Len(Left(Text1, Text1.SelStart)) - Len(Replace(Left(Text1, Text1.SelStart), " ", "")))
If Len(a) > 0 Then
Text1 = ""
For b = 1 To Int((Len(a) - 1) / 2)
Text1 = Text1 & Mid(a, (b - 1) * 2 + 1, 2) & " "
Next
Text1 = Text1 & Mid(a, Int((Len(a) - 1) / 2) * 2 + 1, 2)
If pos > 0 Then
Text1.SelStart = pos + (Int((pos - 1) / 2))
End If
End If
End Sub
</code>

/Johan

Hej
Change tycker jag definitivt inte man skall använd
Då hamnar man lätt i den binära rymden.

tycker "Gubben" mot strömmen
Sven

Om man dessutom lägger det i en separat funktion...

<code>
Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
Gruppera Text1
End Sub

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
</code>

Riktigt coolt om jag får säga det själv...;)

/Johan

Igen till JohanD
>Sven, jag menade om du sätter markören någon annastans än i slutet av texten...

"Tänkte inte på de" ;-)

DS

Jag kan bara tacka och buga

Sören