[Risolto] Stringhe identiche solo in parte

[giuserpe]

Ciao,
date due stringhe coincidenti in parte, è possibile capire qual è la parte coincidente via Basic?

Esempio:
str1 = "Oggi è bel tempo"
str2 = "Oggi è cattivo tempo"

Il risultato sarebbe "Oggi è ".

[Gaetanopr]

pure tempo è comune ad entrambe le stringhe

[unlucky83]

La prima cosa che mi viene in mente è usare la funzione "split" su str1 e ricavarmi così un array di stringhe, poi in un ciclo for conrollo quali elementi dell'array sono presenti in str2 usando la funzione "instr"

[giuserpe]

Ho pensato anche io ad un confronto tra array, poi però ho risolto così:

Codice: Seleziona tutto

Sub stringa_comune
str1 = "Oggi è bel tempo"
str2 = "Oggi è cattivo tempo"
	If str1 > str2 Then
		lung_str = len (str1)
		Else
		lung_str = len (str2)
	EndIf
	For i= 1 To lung_str
		test1 = mid (str1, i, 1)
		test2 = mid (str2, i, 1)
		If test1 <> test2 Then Exit For
	Next
	Print left (str1, i-1)
End Sub

Se credete che ci sia di meglio (e non ho dubbi in merito) fatemi sapere.

[giuserpe]

Volevo precisare che mi serve un confronto tra stinga e stringa dal primo carattere in poi e fino al primo carattere diverso.
Devo mettere in ordine un elenco di descrizioni.