Mi diletto a programmare per hobby pių che
per lavoro. Vorrei quindi mettere a disposizione
in questa sezione alcune funzioni da me create
che potrebbero essere utili a qualcuno.
Seguo i Newsgroup free.it.programmazione.visualbasic, it.comp.appl.access, it.comp.lang.javascript, it.comp.lang.visual-basic, it.comp.www.html.
Visual Basic
Estrarre dal nome di un file la sua estensione:
' *****************************************************************
' Funzione GetLastPos
' Parametri: stringa contenente il nome del file
' Ritorna: stringa contenente l'estensione del file senza il punto.
' Ritorna una stringa vuota se il file non ha estensione.
' Autore: Esteban
' *****************************************************************
Function GetExtension(NomeFile As String) As String
Dim LastPos As Integer, Pos As Integer
GetExtension = ""
Pos = InStr(NomeFile, ".")
Do While Pos > 0
LastPos = Pos
Pos = InStr(LastPos + 1, NomeFile, ".")
GetExtension = Right(NomeFile, Len(NomeFile) - LastPos)
Loop
End Function
|
Sostituzione multipla di un carattere in
una stringa:
' *****************************************************************
' Funzione Replace
' Parametri: stringa oggetto della sostituzione
' stringa contenente i caratteri da sostituire
' stringa contenente i caratteri sostituto ' Ritorna: stringa con caratteri sostituiti
' Autore: Esteban
' ***************************************************************** Function Replace (Stringa As String, CarattereVecchio As String, _
CarattereNuovo As String)
Dim Pos As Integer
Pos = InStr(1, Stringa, CarattereVecchio)
Do While Pos > 0
Mid(Stringa, Pos)= CarattereNuovo
Pos = InStr(1, Stringa, CarattereVecchio)
Loop
Replace = Stringa
End Function
|
|