brigaglia (Normal User)
Newbie
Messaggi: 9
Iscritto: 19/05/2009
|
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!!
|
|
()
Newbie
Messaggi:
Iscritto:
|
Postato originariamente da brigaglia:
2° problema:
data in input una frase contare quante parole sono presenti.
|
Basta creare un codice che visualizza quanti spazi ci sono in una stringa.
P.S.=> evitate questi titoli come "Entrate please" grazie |
|
brigaglia (Normal User)
Newbie
Messaggi: 9
Iscritto: 19/05/2009
|
Postato originariamente da cassin.simone:
Postato originariamente da brigaglia:
2° problema:
data in input una frase contare quante parole sono presenti.
|
Basta creare un codice che visualizza quanti spazi ci sono in una stringa.
P.S.=> evitate questi titoli come "Entrate please" grazie |
ok, scusami |
|
ruggy94 (Member)
Guru
Messaggi: 890
Iscritto: 21/04/2008
|
Postato originariamente da cassin.simone:
Basta creare un codice che visualizza quanti spazi ci sono in una stringa.
|
E chiaramente aumentare il risultato di 1 |
|
()
Newbie
Messaggi:
Iscritto:
|
Postato originariamente da ruggy94:
Postato originariamente da cassin.simone:
Basta creare un codice che visualizza quanti spazi ci sono in una stringa.
|
E chiaramente aumentare il risultato di 1 |
Certo...esa sottinteso... |
|
ruggy94 (Member)
Guru
Messaggi: 890
Iscritto: 21/04/2008
|
Postato originariamente da brigaglia:
1° problema: |
Codice sorgente - presumibilmente VB.NET |
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:
Codice sorgente - presumibilmente Plain Text |
Msgbox(conta("ciao ciao, bello","ciao"))
|
per sapere quante volte la parola ciao è contenuta in quella stringa (in questo caso otterrai 2) |
|
Louis (Normal User)
Pro
Messaggi: 150
Iscritto: 22/04/2008
|
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:
Codice sorgente - presumibilmente VB.NET |
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
|
|
|
GrG (Member)
Guru^2
Messaggi: 3430
Iscritto: 21/08/2007
|
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...
|
|
theprogrammer (Normal User)
Guru^2
Messaggi: 2509
Iscritto: 28/01/2009
|
Postato originariamente da ruggy94:
Postato originariamente da brigaglia:
1° problema: |
...
Poi ti basterà scrivere:
...
|
Vedo che quello che ho scritto nella mia firma, funziona ... almeno con te ruggy ...
Per il secondo problema, basta la Split e la UBound ... Ultima modifica effettuata da theprogrammer il 30/05/2009 alle 18:28 |
|