Cod: Selectaţi tot
strSource = Mid(strSource, InStr(1, strSource, _
"cif") + 50)
strCif = Left(strSource, InStr(1, strSource, "<") - 1)
strSource = Mid(strSource, InStr(1, strSource, _
"city") + 51)
strCity = Left(strSource, InStr(1, strSource, "<") - 1)
strSource = Mid(strSource, InStr(1, strSource, _
"address") + 54)
strAddress = Left(strSource, InStr(1, strSource, "<") - 1)
strSource = Mid(strSource, InStr(1, strSource, _
"registration") + 62)
registration_id = Left(strSource, InStr(1, strSource, "<") - 1)
strSource = Mid(strSource, InStr(1, strSource, _
"name") + 51)
strCompany = Left(strSource, InStr(1, strSource, "<") - 1)
strSource = Mid(strSource, InStr(1, strSource, _
"state") + 52)
strState = Left(strSource, InStr(1, strSource, "<") - 1)