VISUAL BASIC: estrazione lettere da una stringa impostata

[StewieGriffin]

Ciao a tutti :D
mi sto dilettando a sviluppare, per lavoro, un scriptino in visual basic.
Avrei necessità di sapere, se qualcuno può aiutarmi, un metodo per estrarre da una stringa le singole lettere, una ad una.

Per esempio:
dalla stringa: "CIAO" vorrei estrarre le lettere "I" e "O"

è possibile ?

Grazie per una vostra risposta.

[cionci]

Credo tu debba lavorare con le la funzione Mid.
http://www.w3schools.com/vbscript/func_mid.asp

[mynos79]

In base a cosa devi fare puoi usare 2 funzioni:

Mid(stringa, indice [, numero caratteri])
che restituisce una sottostringa di caratteri a partire dalla posizione data da indice e per una lunghezza data dal numero caratteri (o fino a fine stringa se omesso il 3° parametro); mid puoi usarlo anche come istruzione per sostituire delle sottostringhe

Instr(stringa base, stringa da cercare)
restituisce la posizione di una sottostringa (2° paramentro) in una stringa (1° parametro)

[© Rocky]

Forse Stewie gradisce un piccolo esempio facile facile :D

Option Explicit
Dim Miastringa As String
Dim Estratto(4) As String

Private Sub Command1_Click()
On Error Resume Next
Miastringa = "Ciao"
Estratto(1) = Mid(Miastringa, 1, 1)
Estratto(2) = Mid(Miastringa, 3, 1)
Estratto(3) = Mid(Miastringa, 2, 1)
Estratto(4) = Mid(Miastringa, 4, 1)
Text1.Text = Estratto(1) & Estratto(2) & Estratto(3) & Estratto(4)
End Sub


L'Output su Text1.Text è Caio

[StewieGriffin]

Forse Stewie gradisce un piccolo esempio facile facile :D

Option Explicit
Dim Miastringa As String
Dim Estratto(4) As String

Private Sub Command1_Click()
On Error Resume Next
Miastringa = "Ciao"
Estratto(1) = Mid(Miastringa, 1, 1)
Estratto(2) = Mid(Miastringa, 3, 1)
Estratto(3) = Mid(Miastringa, 2, 1)
Estratto(4) = Mid(Miastringa, 4, 1)
Text1.Text = Estratto(1) & Estratto(2) & Estratto(3) & Estratto(4)
End Sub


L'Output su Text1.Text è Caio

Grazie Rocky !
ultima domanda...immagino esista anche un metodo per contare la lunghezza della stringa, vero ?

[cionci]

Len ;)