Aiuto su funzione stringa...

Fast-M · 27-10-2004, 20.24.56

Salve, esiste una funziona stringa in Vb che cerca la prima occorrenza di una lettera maiuscola in una sequenza di lettere non spaziate e mi permette di aggiungere uno spazio " " proprio in quel punto?
Faccio un esempio:
Ho la seguente stringa: "IeriSonoAndatoAMare"
Voglio la seguente stringa risultante: "Ieri Sono Andato A Mare"

Grazie molte!

Sergio Neddi · 27-10-2004, 22.39.26

Fatto in velocità con il vecchio QBASIC, non so se ti può essere di utilità:

Codice:

stringa$ = "IeriSonoAndatoAMare"
stringaout$ = ""
FOR i = 1 TO LEN(stringa$)
    junk$ = MID$(stringa$, i, 1)
    IF ASC(junk$) < 91 AND ASC(junk$) > 64 THEN
      junk$ = CHR$(32) + junk$
    END IF
    stringaout$ = stringaout$ + junk$
NEXT i

Il risultato alla fine si trova, ovviamente, in stringaout$.

Fast-M · 28-10-2004, 01.27.50

Grazie per la routine.
Bella la soluzione del codice ascii !

LoryOne · 28-10-2004, 20.50.23

Si ma guarda che è l'unica.

Codice:

S$ = "IoSonoAndatoAlMare"
For i& = Asc("A") To Asc("Z")
S$ = Replace(S$, Chr$(i&), Chr$(32) & Chr$(i&), , , vbBinaryCompare)
Next

27-10-2004, 20.24.56	#1
Fast-M Senior Member Registrato: 02-08-2003 Loc.: Lamezia Terme Messaggi: 344	Aiuto su funzione stringa... Salve, esiste una funziona stringa in Vb che cerca la prima occorrenza di una lettera maiuscola in una sequenza di lettere non spaziate e mi permette di aggiungere uno spazio " " proprio in quel punto? Faccio un esempio: Ho la seguente stringa: "IeriSonoAndatoAMare" Voglio la seguente stringa risultante: "Ieri Sono Andato A Mare" Grazie molte!

27-10-2004, 22.39.26	#2
Sergio Neddi Gold Member Top Poster Registrato: 07-04-2000 Loc.: Padova-Vicenza Messaggi: 4.814	Fatto in velocità con il vecchio QBASIC, non so se ti può essere di utilità: Codice: stringa$ = "IeriSonoAndatoAMare" stringaout$ = "" FOR i = 1 TO LEN(stringa$) junk$ = MID$(stringa$, i, 1) IF ASC(junk$) < 91 AND ASC(junk$) > 64 THEN junk$ = CHR$(32) + junk$ END IF stringaout$ = stringaout$ + junk$ NEXT i Il risultato alla fine si trova, ovviamente, in stringaout$. ___________________________________ Con il PC risolvo molti problemi che prima non avevo. - Coltiva Linux che Windows si pianta da solo!

28-10-2004, 20.50.23	#4
LoryOne Gold Member WT Expert Registrato: 09-01-2002 Loc.: None of your business Messaggi: 5.505	Si ma guarda che è l'unica. Codice: S$ = "IoSonoAndatoAlMare" For i& = Asc("A") To Asc("Z") S$ = Replace(S$, Chr$(i&), Chr$(32) & Chr$(i&), , , vbBinaryCompare) Next

Discussioni simili
Discussione	Autore discussione	Forum	Risposte	Ultimo messaggio
[C] funzione system() con stringa variabile	UG0_BOSS	Programmazione	2	23-05-2007 18.48.00
AIUTO! Mi è sparita la funzione opzioni cartella..dal menù strumenti, come posso far?	antarius	Windows 7/Vista/XP/ 2003	11	12-04-2005 10.00.29
aiuto su Funzione in c!	SkAkKo	Programmazione	2	27-09-2004 22.43.23
Doppia funzione nella stringa Body	Gabry	Programmazione	1	29-11-2003 22.55.08
AIUTO funzione di Cerca.. o SEARCH bloccata	atir1974	Windows 9x/Me/NT4/2000	0	06-10-2003 17.40.29

28-10-2004, 01.27.50	#3
Fast-M Senior Member Registrato: 02-08-2003 Loc.: Lamezia Terme Messaggi: 344	Grazie per la routine. Bella la soluzione del codice ascii !

Utenti attualmente attivi che stanno leggendo questa discussione: 1 (0 utenti e 1 ospiti)

Strumenti discussione
Visualizza versione stampabile Invia questa pagina via e-mail