Newsgroup: it.comp.lang.visual-basic
Titolo: How do you reverse characters in a string??

i am trying to reverse a characters in a given string using statement
(For...Next).
ie. "1234" to "4321"
anyone knows how to do it please help me.
Thank you!

 ha scritto

Private Sub Command3_Click()
    'Mid(string, start[, length])
    Dim j, s
    For j = Len(Text6) To 1 Step -1
        s = s & Mid(Text6, j, 1)
        Debug.Print s
    Next
End Sub

...

Scusa pal, ma non resisto: questo codice non è per niente ottimizzato!
Private Sub Command3_Click()
    'Mid(string, start[, length])
    'AAArg! addirittura dei variant!
    Dim j As Long, s As String
    s = String$(Len(Text6.Text), Chr$(0)) 'alloco la stringa per evitare le
concatenazioni
        'che richiamerebbero lo string manager e sprecerebbero tempo
macchina
    For j = Len(s) To 1 Step -1
          Mid$(s, Len(s) - j + 1, 1) = Mid$(Text6.Text, j, 1) 'Usiamo le
funzioni stringa con la $, please.
    Next
    Debug.Print s
End Sub
Ciao

 Scusa pal, ma non resisto: questo codice non è per niente ottimizzato!
no infatti, ma a parte i 15 secondi per scrivere e provare, non mi sembrava
il caso di stare a sottilizzare. ora temo che il ragazzo mi stia sul tuo
codice un paio di giorni, e perda di vista il ciclo :)
ciao, a.

...

Non so se il mio codice sia così buono, ci ho messo anch'io 15 secondi di
sola ottimizzazione (l'avevi già scritto tu :) ), però io penso (al
contrario di quanto pensano nella ditta dove lavoro) che il tempo perso  per
_capire_ e _ricercare_ in realtà non è perso, ma guadagnato.
Ciao

 _capire_ e _ricercare_ in realtà non è perso, ma guadagnato.
serieta' e teoria ammirevoli. sul serio. concordo in pieno. ma, temo,
proprio per questo io lavoro conto terzi, che di solito capiscono meno ma
intanto vanno...
cmq, quanto alla didattica, di solito cerco di procedere per gradi. seno' mi
trovo gente per cui un tiff da 8 mb e un jpeg da 8 mb sono la stessa cosa.
verificato di persona...
ciao, a.

 Un miglioramento di 100:1... non male, per una funzioncina cosi' ;-)
seriamente: voi ci-isti e delphisti, avete provato a rifarla e farla girare
con un testo un po' sostanzioso, per curiosita' ? di quant'e' il salto fra
questa ottimizzata e gli altri linguaggi ?
ciao, a.

visto che siamo allegri e molto euforici
 e io non resisto alle tentazioni vorrei darvi anche la mia soluzione super
ottimizzata grazie a mamma m$:
Funzione StrReverse
Descrizione
Restituisce una stringa in cui l'ordine dei caratteri della stringa
specificata è stato invertito.
Sintassi
StrReverse(stringa1)
L'argomento stringa1 è la stringa di cui deve essere invertito l'ordine dei
caratteri. Se stringa1 è una stringa di lunghezza zero (""), verrà
restituita una stringa di lunghezza zero. Se stringa1 è Null, verrà generato
un errore.
provate e fatemi sapere !!!! :O))))))))))

P.S. che figura che abbiamo fatto con il cinese ( almeno sembra) ... :O))

pal avrebbe vb5...
oltre che a mamma ms preferisce di gran lunga (= si fida di piu' di) papa'
rz e zio fz :)
"rain man" <spas...@MAPSONtiscalinet.itMAPSON> ha scritto


 P.S. che figura che abbiamo fatto con il cinese ( almeno sembra) ... :O))
dato il nome, secondo me e' statunitense.
e poi -- che figura abbiamo fatto ?

si ma lo dicevo tanto per scherzare un po',
E' chiaro che uno non puo' sapere tutto di tutto ( se i ng che ci stanno a
fare ).
per quanto riguarda "la figura" di cui mi ci sono messo dentro anch'io
Esistendo una funzione gia' inserita nel sistema di sviluppo.. praticamente
come dice il mio capo abbiamo scoperto l'acqua calda ... ( e io per primo ne
tanti litri da lavare una mandria di cavalli ...
cmq ribadisco il concetto che non volevo ASSOLUTAMENTE offendere nessuno ...
ciao ..

 cmq ribadisco il concetto che non volevo ASSOLUTAMENTE offendere nessuno
...
credo che nessuno si sia offeso. io no senz'altro, almeno. in compenso il
povero postatore dev'essere sempre piu' sconcertato... :)

verificato di persona...
Proprio stamattina parlavo per telefono con un operatore per un problema e
il discorso si articolava così:
io: vada  sul tasto "rebuild"
lui: fatto
io: adesso funziona?
lui: no, non è successo niente...
dopo vari tentativi capisco che lui andava sì sul tasto con il mouse, ma poi
mica lo premeva!
D'altra parte io non sono stato molto chiaro... (è già buona se non è andato
inpiedi sul tasto...)
Per non parlaredi quelli a cui devi spiegare che "andare con il mouse in
alto" non significa alzarlo dal tappetino... (mi è successo anche questo!)
Ciao

 wrote in message 38354...@news.megasys.it...
|
| "rain man" <spas...@MAPSONtiscalinet.itMAPSON> ha scritto
|
| (fra parentesi: cos'e' questo mapson cosi subliminare? :)
debug.print strreverse("NOSPAM") :O)

... tanto per essere in tema ... giuro che non l'ho fatto apposta!!! :O))

questa ottimizzata e gli altri linguaggi ?
E' 100 volte più facile che io converta un prog da delphi a VB che viceversa
(sono pazzo?)
Ciao

 questa ottimizzata e gli altri linguaggi ?
mah, io ho fatto un piccolo test con una stringa da 32768 caratteri, ecco le
medie raggiunte dai tre Reverse su dieci tentativi (parlo di codice interpretato
dall'IDE, non compilato):
pal: 66 secondi
Zanna: 59 secondi
Roal: 85 millesimi di secondo!!! secondo me ha barato!

 ha scritto

non credo abbia barato.
anche perche' il test lo facevi tu, mica lui :)
solo, se guardi le ultime 4 parole del mio post, non c'e' scritto "e quelle
di pal e zanna"...
grazie comunque dell'incoraggiamento :)
ciao, a.
ps - perche' hai scelto una stringa lunga (piu' o meno?) come un intero ?

 ... l'OT e' la cosa piu' difficile da far finire ...
l'ultimo secondo me si dice da parti molto molto *tue*.
non che ne contesti la sostanza, bada bene...

 ps - perche' hai scelto una stringa lunga (piu' o meno?) come un intero ?
perchè la funzione String() lavora con gli Integer, e anche perchè se provavo a
buttare nella txt in una botta sola anche un solo byte in più mi dava overflow