Visual Basic 6 - 2 problemi sulle funzioni di stringhe..Entrate please

ragazzi mi serve una mano su questi 2 probelmi, se avete idee su come fare le codifiche..

1° problema:

dato in Input una frase e data in input una stringa di lunghezza inferiore alla frase di partenza. determinare quante volte è contenuta nella frase.


2° problema:

data in input una frase contare quante parole sono presenti.


Grazie a tutti!!

Basta creare un codice che visualizza quanti spazi ci sono in una stringa.

P.S.=> evitate questi titoli come "Entrate please" grazie

ok, scusami

E chiaramente aumentare il risultato di 1

Certo...esa sottinteso...

Private Function Conta(StringaIniziale As String, StringaDaCercare As String)
Dim L1 As Integer
L1 = Len(StringaIniziale)

Dim L2 As Integer
L2 = Len(StringaDaCercare)

Dim R As Integer
R = L1 - Len(Replace(StringaIniziale, StringaDaCercare, ""))

Conta = Int(R / L2)
End Function

Poi ti basterà scrivere:

Msgbox(conta("ciao ciao, bello","ciao"))

per sapere quante volte la parola ciao è contenuta in quella stringa (in questo caso otterrai 2)

Ciao brigaglia,
la soluzione non é poi così difficile, basterebbe usare la funzione Len() per conoscere il numero dei caratteri di ogni frase; però una complicazione potrebbe derivare dagli spazi inseriti tra una frase ed un'altra; pertanto si potrebbe usare la funzione Replace() per togliere i predetti spazi e contare successivamente le parole di ogni frase.
Bhe, guarda il seguente esempio (senz'altro migliorabile) e fammi sapere se é soddisfa le condizioni poste.
Inserisci sulla Frm due Txt e due Lbl, oltre un CmdButton:

Option Explicit

Private Sub Command1_Click()
    
    Dim str1 As String, str2 As String
    Dim lunghezza1 As Integer, lunghezza2 As Integer
    Dim quozte As Double
    Label1.Caption = ""
    Label2.Caption = ""
 
    ' Verifica la prima frase:
    If Len(Text1.Text) > 0 Then
    ' Toglie gli spazi tra le frasi:
        str1 = Replace(Text1.Text, " ", "")
    
    ' Conta i caratteri dell'intera frase:
        lunghezza1 = Len(str1)
    ' Conta le parole presenti:
        Label1.Caption = lunghezza1
        
        ' Verifica la seconda frase:
        If Len(Text2.Text) > 0 Then
            ' Toglie gli spazi tra le frasi:
            str2 = Replace(Text2.Text, " ", "")
            ' Conta i caratteri dell'intera frase:
            lunghezza2 = Len(str2)
            ' Controlla quante volte lunghezza2 sta in lunghezza1:
            quozte = (lunghezza1 / lunghezza2)
            ' Arrotonda il quoziente della divisione ai centesimi:
            Label2.Caption = Format(quozte, "#,##0.00")
        End If
    End If
End Sub

Louis (non mi ricordo bene il tuo nick, quindi scusa se ho sbagliato a scrivere) comunque il nostro amico chiedeva come contare parole non caratteri...