Newsgroup: it.comp.lang.visual-basic
Titolo: Modificare una precisa lettera

Come posso fare per modificare solamente
 la 3 lettera di una txtbox?
Grazie (anche per le scorse risposte)

 ha scritto nel messaggio
news:AwXB6.12553$s93.7...@news.infostrada.it...



Mid(Text1.Text, 3, 1) = "a" 'lettera che vuoi

 wrote in message
AwXB6.12553$s93.7...@news.infostrada.it...


I codici funzionano e,dato che ci sono, volevo chiedervi come verificare che
la lettera n°7 di una textbox corrisponda alla lettera H.
Ho provato con il codice seguente, ma non va!
if (Stringa (7)) = "H" then
'istruzioni
end if


E' piu' efficiente la tecnica proposta da st_985
ciao, hal

 Come posso fare per modificare solamente la 3 lettera di una txtbox?
Option Explicit
Private Sub Prova( _
  ByVal TextBox As VB.TextBox _
, ByVal Char As String _
, ByVal Pos As Long _
)
  With TextBox
    If Len(.Text) >= Pos _
    Then _
      .Text _
        = Left$(.Text, Pos - 1) & Char & Mid$(.Text, Pos + 1)
  End With
End Sub
Private Sub Command1_Click( _
)
  Prova Text1, "c", 3
End Sub
Private Sub Form_Load( _
)
  Text1.Text = "abXdef"
End Sub
--
Ciao.
Maurizio
--------
?SPQR(C)
 X
--------

> hal1961:

Se funzionasse!... ;-)


 Mid(Text1.Text, 3, 1) = "a" 'lettera che vuoi
Caro st_985, prova ad eseguire. Poi facci sapere come e` andata.


> Mnka:

    If Mid$(Text1.Text, 7, 1) = "H" Then
Sarebbe bene, pero`, che tu studiassi le pagine della guida relative alle
funzioni per la gestione delle stringhe.


 Se funzionasse!... ;-)
A questo punto conviene una bella funzioncina:
Function SostituisciSottostringa(byval sStringa as string, _
                                               byval lPosizione as long, _
                                                byval sStringaDaSostituire
as string) _
                                                as string
 Mid$(sStringa,lPosizione, Len(sStringaDaSostituire)) = sStringaDaSostituire
 SostituisciSottostringa=sStringa
End function
Quindi la richiesta di Mnka (ma che razza di alias č?) si risolve cosě:
Text1.Text=SostituisciSottostringa(Text1.Text,3,"a")
Tra l'altro cosě si evitano i problemi che affliggerebbero il tuo esempio se
si volessero sostituire il primo o l'ultimo carattere.
Ciao
*Roby* (solo per oggi Pasquale)

 Tra l'altro cosě si evitano i problemi che affliggerebbero il tuo esempio
se si volessero sostituire il primo o l'ultimo carattere.
Mi consenta!... Eventuali affliggenti problemi non riguarderebbero il mio
esempio che, in quanto tale, non ne ha (SE&O), ma l'eventuale codice da esso
ricavato, se scritto a capocchia.
--
Ciao :-)


 Ciao :-)
Ho riletto il mio esempio e non ho riscontrato problemi ne' nella
sostituzione del primo carattere, ne' in quella dell'ultimo. A cosa ti
riferivi esattamente?
Inoltre... se alla tua funzione passi lPosizione = 0 o lPosizione >
Len(sStringa) va in errore! E, ammettilo, non e` il massimo...


 Len(sStringa) va in errore! E, ammettilo, non e` il massimo...
Vero. 1 a 1, palla al centro.
Mettiamola cosě (alla testo scolastico): il resto della funzione viene
lasciata come esercizio per lo studente. ;-)
Ciao
*Roby*

 Mettiamola cosě (alla testo scolastico): il resto della funzione viene
lasciata come esercizio per lo studente. ;-)
Ecco perche' non amo la scuola.
--
Ciao.


     Text1.Text = s
Gia` visto, in questo indebitamente lungo thread. :-P


> Gia` visto, in questo indebitamente lungo thread. :-P
Beh, meno male che non sono solo io che mi perdo tra i multipli di 400... ;-))))))
Ciao,
Moreno
#sirri#@#morenosoft#.com
(togliete "#" dall'indirizzo)
Moreno Sirri VB Site - 
http://www.msvbsite.net
---------------------------------------------------------------------------
Le risposte alle tue domande le trovi sul Sito Comune di questo NewsGroup:
 
http://www.it-lang-vb.net
---------------------------------------------------------------------------


Scusa, non volevo turbare i tuoi foschi pensieri su crocefissioni e colombe
sgozzate... ho sbagliato, ho ammesso... chi passa per infliggermi la giusta
punizione?
ciao caro maurizio ;)

 mid$(text1.Text) = "X"
scusa, ma qui dove dici che il carattere da sostituire e' il terzo?

con grassi animali o vegetali? :-))
Per andare sul sicuro sarà un uovo sintetico (qualche nuovo polimero)
Ciao

 End Sub
Voglio mettere zizzania... :))))
Cosa fa la funzione se la chiamo cosi'?
Prova Text1, "c", -3
Certo che dovrei essere propio rin... distratto ad usare una posizione negativa...
:)))))))))

 :)))))))))
Non c'e` che dire... Era ora che qualcuno lo facesse notare. ;-)


Caro st_985, prova ad eseguire. Poi facci sapere come e` andata.
fammi indovinare: "Utilizzo non valido di Property"?

 fammi indovinare: "Utilizzo non valido di Property"?
Nonzignore;-)
"Compile error:
Variable required - can't assign to this expression."
