Cod: Selectaţi tot
Public Sub Test()
Dim df As DateFirma
cif = Me.cif.Value
df = DateANAF(cif)
Me.nume = df.Denumire
Me.adresa = df.adresa
Me.localitate = df.localitate
Me.j = df.NrInreg
Me.judet = df.Judetul
End Sub
Cod: Selectaţi tot
Public Sub Test()
Dim df As DateFirma
cif = Me.cif.Value
df = DateANAF(cif)
Me.nume = df.Denumire
Me.adresa = df.adresa
Me.localitate = df.localitate
Me.j = df.NrInreg
Me.judet = df.Judetul
End Sub
Cod: Selectaţi tot
ContinutANAF = Replace(Mid(strXML, pStart, pStop - pStart), StrStart, "")
ContinutANAF = Replace(ContinutANAF, "Ţ", "t")
ContinutANAF = Replace(ContinutANAF, "Â", "a")
ContinutANAF = Replace(ContinutANAF, "Ş", "s")
Cod: Selectaţi tot
ContinutANAF = Replace(Mid(strXML, pStart, pStop - pStart), StrStart, "")
ContinutANAF = Replace(ContinutANAF, "Ă", "A")
ContinutANAF = Replace(ContinutANAF, "ă", "a")
ContinutANAF = Replace(ContinutANAF, "Â", "A")
ContinutANAF = Replace(ContinutANAF, "â", "a")
ContinutANAF = Replace(ContinutANAF, "Î", "I")
ContinutANAF = Replace(ContinutANAF, "î", "i")
ContinutANAF = Replace(ContinutANAF, "Ș", "S")
ContinutANAF = Replace(ContinutANAF, "ș", "s")
ContinutANAF = Replace(ContinutANAF, "Ş", "S")
ContinutANAF = Replace(ContinutANAF, "ş", "s")
ContinutANAF = Replace(ContinutANAF, "Ţ", "T")
Cod: Selectaţi tot
Function ScoateDiacritice(thestring As String)
Dim A As String * 1
Dim B As String * 1
Dim i As Integer
Const AccChars= "ŠŽšžŸÀÁÂÃÄÅÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖÙÚÛÜÝàáâãäåçèéêëìíîïðñòóôõöùúûüýÿ"
Const RegChars= "SZszYAAAAAACEEEEIIIIDNOOOOOUUUUYaaaaaaceeeeiiiidnooooouuuuyy"
For i = 1 To Len(AccChars)
A = Mid(AccChars, i, 1)
B = Mid(RegChars, i, 1)
thestring = Replace(thestring, A, B)
Next
StripAccent = thestring
End Function
Cod: Selectaţi tot
Function FindPattern(ByVal Text As String, ByVal StrPattern As String) As String
Dim Result As String, i As Integer
Dim allMatches As Object
Dim re As Object
Set re = CreateObject("vbscript.regexp")
If InStr("radiata", StrPattern) > 0 Then
StrPattern = StrPattern & Chr(34) & ": " & "?.*?,"
Else
StrPattern = StrPattern & Chr(34) & ": " & Chr(34) & "?.*?" & Chr(34)
End If
re.Pattern = StrPattern
re.Global = True
re.IgnoreCase = False
re.MultiLine = False
Set allMatches = re.Execute(Text)
If allMatches.Count <> 0 Then
Result = allMatches.Item(0) '.FirstIndex
Else
Result = ""
End If
If InStr(Result, ":") > 0 Then Result = Trim(Replace(Split(Result, ":")(1), Chr(34), ""))
FindPattern = Result
End Function
Centrul de training si consultanta IT Learning activeaza de peste 15 ani pe piata serviciilor de instruire si certificare IT din Romania. |
Link-uri utile |
Categorii de cursuri |
Contact |
© 2019 IT Learning Business Intelligence School - Citeste termeni si conditii |