Oppure

Loading
28/08/08 13:36
FrnbacYescO
Anche se il titolo sembra un pò strano...

alora devo fare un pikkolo programmino ke mi permette di trasformare un lunga stringa composta da gruppi di due numeri in un'altra senza spazi ma invertita,

faccio un esempio perchè sò che non ci avrete capito niente:
nella prima Textbox scrivo:
01 23 45 67 89
nella seconda mi compare:
8967452301

(ovviamente ho scritto una stringa corta dovrei invertire circa 150 coppie..che possono essere piu o meno..)
io stavo provando con mid$ ma dovrei scrivere molte righe di codice, almeno credo...
adesso stavo usando la funzione split ma comunque avrei da scrivere molto codice.
qualcuno ha qualke consiglio per "accorciare"??
Ultima modifica effettuata da FrnbacYescO 28/08/08 13:39
aaa
28/08/08 13:57
GrG
fai un nuovo progetto, mettici un commandbutton e 2 textbox.
nel form mettici questo codice di esempio:
Dim coppie(10) As String
Dim temp As String
Dim tmp As String
Dim x As Integer
Dim i As Integer
Private Sub Command1_Click()
temp = Replace(Text1.Text, " ", "")
i = Len(Replace(Text1.Text, " ", "")) \ 2
For x = 1 To i
tmp = Right(temp, 2)
temp = Left(temp, Len(temp) - 2)
coppie(x) = tmp
If x = i Then
Text2.Text = Text2.Text & coppie(x)
Else
Text2.Text = Text2.Text & coppie(x) & " "
End If
Next x
End Sub

Private Sub Form_Load()
Text1.Text = "01 23 45 67 89"
End Sub


Spero sia chiaro (il codice).
aaa
28/08/08 14:18
FrnbacYescO
Postato originariamente da GrG:

fai un nuovo progetto, mettici un commandbutton e 2 textbox.
nel form mettici questo codice di esempio:
Dim coppie(10) As String
Dim temp As String
Dim tmp As String
Dim x As Integer
Dim i As Integer
Private Sub Command1_Click()
temp = Replace(Text1.Text, " ", "")
i = Len(Replace(Text1.Text, " ", "")) \ 2
For x = 1 To i
tmp = Right(temp, 2)
temp = Left(temp, Len(temp) - 2)
coppie(x) = tmp
If x = i Then
Text2.Text = Text2.Text & coppie(x)
Else
Text2.Text = Text2.Text & coppie(x) & " "
End If
Next x
End Sub

Private Sub Form_Load()
Text1.Text = "01 23 45 67 89"
End Sub


Spero sia chiaro (il codice).


Cristallino :D:D

Grazie mille !!:k:
aaa
28/08/08 14:32
GrG
di nulla e alla prossima. :k:
aaa