|
Extract XML Google Maps Address - Extrair Endereco Google Maps Xml |
Débuté par adrianoboller, 18 nov. 2014 13:47 - Aucune réponse |
| |
| | | |
|
| |
Membre enregistré 3 651 messages Popularité : +175 (223 votes) |
|
Posté le 18 novembre 2014 - 13:47 |
Procedure WS_ExtrairEndereco(endereco)
IF GloDebugSN = "S" THEN NextTitle("Extrair Endereço") Info("WS_ExtrairEndereco",endereco) END
sRua, sNumero, sBairro, sCidade, sEstado, sPais, sCep is string = ""
IF endereco <> ""
endereco = Replace(endereco,"State Of ", "",IgnoreCase)
arrSplitArray is array of strings StringToArray(endereco, arrSplitArray," - ")
IF ArrayCount(arrSplitArray) = 3
arrSplitRuaNumeroArray is array of strings StringToArray(arrSplitArray[1], arrSplitRuaNumeroArray,",")
IF ArrayCount(arrSplitRuaNumeroArray) = 1
sRua = arrSplitRuaNumeroArray[1];
sNumero = "0";
ELSE IF ArrayCount(arrSplitRuaNumeroArray) = 2
sRua = arrSplitRuaNumeroArray[1];
IF PositionOccurrence(arrSplitRuaNumeroArray[2],"-",firstRank) > 0 THEN
arrSplitNumeroArray is array of strings StringToArray(arrSplitRuaNumeroArray[2], arrSplitNumeroArray,"-")
WHEN EXCEPTION IN Media is int = (Val(arrSplitNumeroArray[1]) + Val(arrSplitNumeroArray[2])) / 2 DO sNumero = 0 ELSE sNumero = Media END
ELSE
sNumero = arrSplitRuaNumeroArray[2];
END
END
arrSplitBairroCidadeArray is array of strings StringToArray(arrSplitArray[2], arrSplitBairroCidadeArray,",")
IF ArrayCount(arrSplitBairroCidadeArray) = 2
sBairro =arrSplitBairroCidadeArray[1]; sCidade = arrSplitBairroCidadeArray[2];
ELSE IF (ArrayCount(arrSplitBairroCidadeArray) = 3)
sBairro = arrSplitBairroCidadeArray[1]; sCidade = arrSplitBairroCidadeArray[3];
ELSE
sBairro = ""; sCidade = "";
END
arrSplitEstadoCepPaisArray is array of strings StringToArray(arrSplitArray[3], arrSplitEstadoCepPaisArray,",")
IF ArrayCount(arrSplitEstadoCepPaisArray) = 2
sEstado = arrSplitEstadoCepPaisArray[1]; sPais = arrSplitEstadoCepPaisArray[2]; sCep = ""
ELSE IF ArrayCount(arrSplitEstadoCepPaisArray)= 3
sEstado = arrSplitEstadoCepPaisArray[1]; sCep = arrSplitEstadoCepPaisArray[2]; sPais = arrSplitEstadoCepPaisArray[3]; ELSE
sEstado = "" sCep = "" sPais = ""
END ELSE IF ArrayCount(arrSplitArray) = 2
arrSplitRuaCidadeArray is array of strings StringToArray(arrSplitArray[1], arrSplitRuaCidadeArray,",")
sNumero = "0"; IF ArrayCount(arrSplitRuaCidadeArray) = 1
sRua = arrSplitRuaCidadeArray[1];
ELSE IF ArrayCount(arrSplitRuaCidadeArray) = 2
sRua = arrSplitRuaCidadeArray[1]; sCidade = arrSplitRuaCidadeArray[2];
ELSE IF ArrayCount(arrSplitRuaCidadeArray) = 3
sRua = arrSplitRuaCidadeArray[1];
IF PositionOccurrence(arrSplitRuaCidadeArray[2],"-",firstRank) > 0 THEN
arrSplitNumeroArray is array of strings StringToArray(arrSplitRuaCidadeArray[2], arrSplitNumeroArray,"-")
WHEN EXCEPTION IN Media is int = (Val(arrSplitNumeroArray[1]) + Val(arrSplitNumeroArray[2])) / 2 DO sNumero = 0 ELSE sNumero = Media END
ELSE
sNumero = arrSplitRuaCidadeArray[2];
END
sCidade = arrSplitRuaCidadeArray[3]; END
arrSplitEstadoCepPaisArray is array of strings StringToArray(arrSplitArray[2], arrSplitEstadoCepPaisArray,",") IF ArrayCount(arrSplitEstadoCepPaisArray) = 2
sEstado = arrSplitEstadoCepPaisArray[1]; sPais = arrSplitEstadoCepPaisArray[2]; sCep = ""
ELSE IF ArrayCount(arrSplitEstadoCepPaisArray)= 3
sEstado = arrSplitEstadoCepPaisArray[1]; sCep = arrSplitEstadoCepPaisArray[2]; sPais = arrSplitEstadoCepPaisArray[3]; ELSE
sEstado = "" sCep = "" sPais = ""
END
END
sEstado = Capitalize(Clip(sEstado)) IF sEstado <> ""
IF sEstado = "Acre" THEN sEstado = "AC" ELSE IF sEstado = "Alagoas" THEN sEstado = "AL" ELSE IF sEstado = "Amazonas" THEN sEstado = "AM" ELSE IF sEstado = "Amapa" THEN sEstado = "AP" ELSE IF sEstado = "Bahia" THEN sEstado = "BA" ELSE IF sEstado = "Ceara" THEN sEstado = "CE" ELSE IF sEstado = "Distrito Federal" THEN sEstado = "DF" ELSE IF sEstado = "Espirito Santo" THEN sEstado = "ES" ELSE IF sEstado = "Goias" THEN sEstado = "GO" ELSE IF sEstado = "Maranhao" THEN sEstado = "MA" ELSE IF sEstado = "Minas Gerais" THEN sEstado = "MG" ELSE IF sEstado = "Mato Grosso do Sul" THEN sEstado = "MS" ELSE IF sEstado = "Mato Grosso" THEN sEstado = "MT" ELSE IF sEstado = "Parana" THEN sEstado = "PR" ELSE IF sEstado = "Para" THEN sEstado = "PA" ELSE IF sEstado = "Paraiba" THEN sEstado = "PB" ELSE IF sEstado = "Pernambuco" THEN sEstado = "PE" ELSE IF sEstado = "Piaui" THEN sEstado = "PI" ELSE IF sEstado = "Rio de Janeiro" THEN sEstado = "RJ" ELSE IF sEstado = "Rio Grande DO Norte" THEN sEstado = "RN" ELSE IF sEstado = "Rondonia" THEN sEstado = "RO" ELSE IF sEstado = "Roraima" THEN sEstado = "RR" ELSE IF sEstado = "Rio Grande DO Sul" THEN sEstado = "RS" ELSE IF sEstado = "Santa Catarina" THEN sEstado = "SC" ELSE IF sEstado = "Sergipe" THEN sEstado = "SE" ELSE IF sEstado = "Sao Paulo" THEN sEstado = "SP" ELSE IF sEstado = "Tocantins" THEN sEstado = "TO" END
END
END arrResult is array of strings
Add(arrResult, Capitalize(Clip(sRua))) Add(arrResult, Clip(sNumero)) Add(arrResult, Capitalize(Clip(sBairro))) Add(arrResult, Capitalize(Clip(sCidade))) Add(arrResult, Upper(Clip(sEstado))) Add(arrResult, Clip(sCep)) Add(arrResult, Capitalize(Clip(sPais)))
IF GloDebugSN = "S" THEN NextTitle("Extrair Endereço") Info(arrResult[1],arrResult[2],arrResult[3],arrResult[4],arrResult[5],arrResult[6],arrResult[7]) END
RESULT arrResult |
| |
| |
| | | |
|
| | | | |
| | |
|