Moderatori: Anthony47, Flash30005
Function filtrD(txt As String) As String
'
With CreateObject("VBScript.RegExp")
' .Pattern = "\d+(\.\d+)?"
.Pattern = "[^A-Za-z0-9_-]"
.Global = True
filtrD = .Replace(txt, "")
End With
End Function
cFN = filtrD(cFN)
Eh he, il che dimostra che non erano gli spazi tra una parola e l'altra a creare il problema...Grazie Anthony adesso sembra funzionare tutto perfettamente! Ho solo inserito uno spazio tra le "" nel replace in maniera che le parole non fossero tute unite.
Function TLim(ByVal myStr As String) As String
Dim L0 As Long
'
Do
L0 = Len(myStr)
myStr = Replace(myStr, " ", " ", , , vbTextCompare)
If Len(myStr) = L0 Or Len(myStr) < 10 Then Exit Do
Loop
TLim = Trim(myStr)
End Function
cFN = Tlim(filtrD(cFN))
Torna a Applicazioni Office Windows
Modifica visualizzazione file di una cartella Autore: mastino46 |
Forum: Sistemi Operativi Windows Risposte: 2 |
Cartella che non si cancella perché non esiste Autore: aurelio37 |
Forum: Sistemi Operativi Windows Risposte: 23 |
Ho scaricato ed installato un sw ma non trovo la cartella Autore: franco11 |
Forum: Sistemi Operativi Windows Risposte: 8 |
Visitano il forum: Nessuno e 86 ospiti