Catalogo delle funzioni, articoli e risorse utili

§EstraiTesto2
Sub
Testo
Luciano
§Estrae tutte le occorenze di una stringa contenuta in un testo e delimitata  da un marcatore predefinito.§
Memo
amore<br>tesoro<br>amore<br>1<br>
Controllo
<br>
 
 

§Public Function EstraiTesto2(Memo As String, Controllo As String) As String
Memo = Memo & Controllo
Dim Contatore As Integer
While Len(Memo) > Len(Controllo)
    Contatore = InStr(1, Memo, Controllo)
    EstraiTesto2 = Trim(Mid(Memo, 1, Contatore - 1))
    Memo = Right(Memo, Len(Memo) - Contatore - Len(Controllo) + 1)
    MsgBox EstraiTesto2
Wend
End Function§

§TrasformaNull
Sub
Tabella
Luciano
§Cambia la stringa "null" di tutti i campi di una tabella di tipo stringa in valore null.§
Tabella
Tabella1
 
 
 

§Public Sub TrasformaNull(Tabella)
Dim rs As New ADODB.Recordset
Dim fld As ADODB.Field
Dim NomeCampo As String
DoCmd.SetWarnings False
rs.Open "select * from  " & Tabella & "", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
Set flds = rs.Fields
For Each fld In flds
    NomeCampo = fld.Name
    if fld.Type=202 "id" Then DoCmd.RunSQL "UPDATE " & Tabella & " SET " & NomeCampo & "= Null WHERE  " & NomeCampo & " = ""null"""
Next
MsgBox " fatto "
rs.Close
DoCmd.SetWarnings False
End Sub§

§RicercaDuplicato
Funzione
Tabella
Luciano
§Ritorna vero se esiste un valore di campo duplicato nella tabella scelta§
Campo
Funzione
Tabella
Funzioni
Valore
TrasformaNull
 

§Public Function RicercaDuplicato(Campo, Tabella, Valore)
   Dim rs As DAO.Recordset
   Set rs = CurrentDb.OpenRecordset("SELECT count(" & Campo & ")as duplicati FROM " & Tabella & " WHERE  " & Campo & "=""" & Valore & """")
   RicercaDuplicato = (rs.Fields("Duplicati") <> 0)
   rs.Close
   Set rs = Nothing
MsgBox RicercaDuplicato
End Function§

§EstraiHtml
Sub
Internet
VediCodice
§Estrae l'html da una pagina web e lo salva in un file di testo.§
Indirizzo
http://www.sitocomune.com/
NomeFile
Notes
Percorso
Application.CurrentProject.Path
 

§Public Sub EstraiHtml(Indirizzo, NomeFile, Percorso)
Dim fs As Object
Dim a As Variant
Dim oHttp As Object
Dim lngFile As Long
Dim Miopath As String
Dim txtRequestString As String
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile(Percorso, True)
Set oHttp = CreateObject("MSXML2.XMLHTTP")
oHttp.Open "GET", Indirizzo, False
oHttp.send
MsgBox oHttp.responseText
lngFile = FreeFile()
 On Error GoTo 5000
If Percorso = "Application.CurrentProject.Path" Then
  Miopath = Application.CurrentProject.Path & "\" & NomeFile & ".txt"
Else
  Miopath = Percorso & "\" & NomeFile & ".txt"
End If
Open Miopath For Append As lngFile
 Print #1, oHttp.responseText
 Close lngFile
MsgBox NomeFile & " salvato"
 Exit Sub
5000
End Sub§

§Matematica1
Sub
Matematica
Luciano
§Segno, valore assoluto, parte intera, arrotondamento di un numero.
Testa se un'espressione è un numero§
Valore
-2,1234
Decimali
2
 
 

§Public Sub Matematica1(Valore, NumeroDecimali)
On Error GoTo 5000
MsgBox "Sng(Valore)Estrae il segno  di un numero ed è = " & Sgn(Valore) & vbCrLf & vbCrLf & _
"Fix(Valore) Restituisce in caso di segno negativo  il primo intero negativo maggiore o uguale a Valore ed è = " & Fix(Valore) & vbCrLf & vbCrLf & _
"Int(Valore)Restituisce il primo intero negativo minore o uguale a Valore ed è = " & Int(Valore) & vbCrLf & vbCrLf & _
"Round(Valore, NumeroDecimali) Restituisce il valore arrotondato a NumeroDecimali ( " & NumeroDecimali & ")= " & Round(Valore, NumeroDecimali) & vbCrLf & vbCrLf & _
"Abs(Valore) Restituisce  il valore assoluto di un numero  ed è = " & Abs(Valore)
5000
MsgBox "IsNumeric(Valore)  Restituisce un valore Boolean che indica se un'espressione può essere valutata come numero. In questo caso è " & IsNumeric(Valore)
End Sub§