Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
Visual Basic 6 - 2 problemi sulle funzioni di stringhe..Entrate please
Forum - Visual Basic 6 - 2 problemi sulle funzioni di stringhe..Entrate please

Pagine: [ 1 2 ] Precedente | Prossimo
Avatar
brigaglia (Normal User)
Newbie


Messaggi: 9
Iscritto: 19/05/2009

Segnala al moderatore
Postato alle 15:59
Sabato, 30/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!!

PM Quote
Avatar
()
Newbie


Messaggi:
Iscritto:

Segnala al moderatore
Postato alle 16:18
Sabato, 30/05/2009
Testo quotato

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

PM Quote
Avatar
brigaglia (Normal User)
Newbie


Messaggi: 9
Iscritto: 19/05/2009

Segnala al moderatore
Postato alle 16:22
Sabato, 30/05/2009
Testo quotato

Postato originariamente da cassin.simone:

Testo quotato

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

PM Quote
Avatar
ruggy94 (Member)
Guru


Messaggi: 890
Iscritto: 21/04/2008

Segnala al moderatore
Postato alle 16:24
Sabato, 30/05/2009
Testo quotato

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

PM Quote
Avatar
()
Newbie


Messaggi:
Iscritto:

Segnala al moderatore
Postato alle 16:25
Sabato, 30/05/2009
Testo quotato

Postato originariamente da ruggy94:

Testo quotato

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...:rofl:

PM Quote
Avatar
ruggy94 (Member)
Guru


Messaggi: 890
Iscritto: 21/04/2008

Segnala al moderatore
Postato alle 16:58
Sabato, 30/05/2009
Testo quotato

Postato originariamente da brigaglia:
1° problema:



Codice sorgente - presumibilmente VB.NET

  1. Private Function Conta(StringaIniziale As String, StringaDaCercare As String)
  2. Dim L1 As Integer
  3. L1 = Len(StringaIniziale)
  4.  
  5. Dim L2 As Integer
  6. L2 = Len(StringaDaCercare)
  7.  
  8. Dim R As Integer
  9. R = L1 - Len(Replace(StringaIniziale, StringaDaCercare, ""))
  10.  
  11. Conta = Int(R / L2)
  12. End Function



Poi ti basterà scrivere:
Codice sorgente - presumibilmente Plain Text

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


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

PM Quote
Avatar
Louis (Normal User)
Pro


Messaggi: 150
Iscritto: 22/04/2008

Segnala al moderatore
Postato alle 17:10
Sabato, 30/05/2009
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

  1. Option Explicit
  2.  
  3. Private Sub Command1_Click()
  4.    
  5.     Dim str1 As String, str2 As String
  6.     Dim lunghezza1 As Integer, lunghezza2 As Integer
  7.     Dim quozte As Double
  8.     Label1.Caption = ""
  9.     Label2.Caption = ""
  10.  
  11.     ' Verifica la prima frase:
  12.     If Len(Text1.Text) > 0 Then
  13.     ' Toglie gli spazi tra le frasi:
  14.         str1 = Replace(Text1.Text, " ", "")
  15.    
  16.     ' Conta i caratteri dell'intera frase:
  17.         lunghezza1 = Len(str1)
  18.     ' Conta le parole presenti:
  19.         Label1.Caption = lunghezza1
  20.        
  21.         ' Verifica la seconda frase:
  22.         If Len(Text2.Text) > 0 Then
  23.             ' Toglie gli spazi tra le frasi:
  24.             str2 = Replace(Text2.Text, " ", "")
  25.             ' Conta i caratteri dell'intera frase:
  26.             lunghezza2 = Len(str2)
  27.             ' Controlla quante volte lunghezza2 sta in lunghezza1:
  28.             quozte = (lunghezza1 / lunghezza2)
  29.             ' Arrotonda il quoziente della divisione ai centesimi:
  30.             Label2.Caption = Format(quozte, "#,##0.00")
  31.         End If
  32.     End If
  33. End Sub



:k:

PM Quote
Avatar
GrG (Member)
Guru^2


Messaggi: 3430
Iscritto: 21/08/2007

Segnala al moderatore
Postato alle 17:36
Sabato, 30/05/2009
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...

PM Quote
Avatar
theprogrammer (Normal User)
Guru^2


Messaggi: 2509
Iscritto: 28/01/2009

Segnala al moderatore
Postato alle 18:27
Sabato, 30/05/2009
Testo quotato

Postato originariamente da ruggy94:

Testo quotato

Postato originariamente da brigaglia:
1° problema:



...

Poi ti basterà scrivere:

...



Vedo che quello che ho scritto nella mia firma, funziona ... almeno con te ruggy ... :k:

Per il secondo problema, basta la Split e la UBound ...

Ultima modifica effettuata da theprogrammer il 30/05/2009 alle 18:28
PM Quote
Pagine: [ 1 2 ] Precedente | Prossimo