Funzione che serve per verificare il contenuto della stringa in entrata: se c’è contenuto fa un trim altrimenti restituisce uan stringa con uno spazio.
Usata anche per rimuovere caratteri non voluti , potete estenderla come vi serve.
Function veriStr(entrata As String) As String
veriStr = " "
entrata = Trim(entrata)
entrata = Replace(entrata,"'","")
entrata = Replace(entrata,"(","[")
entrata = Replace(entrata,")","]")
If Len(entrata) = 0 Then
Exit Function
Else
veriStr = entrata
End If
End Function
0 commenti