Como faço para retirar essa formatação

[Morpheus#2005 1]

Aspmaniacos,

 

O problema é o seguinte, quando eu exporto esses campos ele vem formatado assim :

 

Ele me traz assim :

 

5236885,"2455-1388"

 

Mas eu gostaria que ele fosse assim ::

 

5236885;24551388

 

A formatação correta seria separado com ponto-e-virgula e o telefone sem o traço.

 

Segue o código abaixo :

 

Sub ExportToCSV

 

Response.ContentType = "application/csv"

Response.addheader "Content-Disposition", "attachment; Filename=baserj.csv"

 

if rs.eof then exit sub

 

' write header

for i=0 to rs.Fields.Count-1

Response.Write """" & Label(rs.Fields(i).Name) & """"

if i<>rs.Fields.Count-1 then Response.Write ","

next

Response.Write vbCRLF

 

' write data rows

iNumberOfRows = 0

DO UNTIL rs.eof OR ( iNumberOfRows>=CInt(Request("pagesize")) and _

Request("records")="page" )

i = 0

 

strData = GetData(rs.Fields("Circuito"), "")

 

 

Response.Write """" & strData & """"

 

if i<rs.Fields.Count-1 then Response.Write ","

i=i+1

 

 

strData = GetData(rs.Fields("Telefone"),"")

 

 

Response.Write """" & strData & """"

 

if i<rs.Fields.Count-1 then Response.Write

i=i+1

 

 

 

 

Response.Write vbCRLF

rs.MoveNext

iNumberOfRows = iNumberOfRows + 1

loop

 

 

End Sub

 

 

Sub WriteTableData

 

 

if rs.eof then exit sub

 

' write header

Response.Write "<tr>"

for i=0 to rs.Fields.Count-1

Response.Write "<td>" & Label(rs.Fields(i).Name) & "</td>"

next

Response.Write "</tr>"

 

 

' write data rows

iNumberOfRows = 0

DO UNTIL rs.eof OR ( iNumberOfRows>=CInt(Request("pagesize")) and _

Request("records")="page" )

Response.Write "<tr>"

 

strData = GetData(rs.Fields("Circuito"),""&";")

 

 

if Request("type")="excel" and IfNeedQuotes(rs.Fields("Circuito").Type) and _

IsNumeric(GetData(rs.Fields("Circuito"), Format(rs.Fields("Circuito").Name))) then

Response.Write "<td>=""" & strData & """</td>"

else

Response.Write "<td>" & strData & "</td>"

end if

 

 

strData = GetData(rs.Fields("Telefone"), "")

 

 

if Request("type")="excel" and IfNeedQuotes(rs.Fields("Telefone").Type) and _

IsNumeric(GetData(rs.Fields("Telefone"), Format(rs.Fields("Telefone").Name))) then

Response.Write "<td>=""" & strData & """</td>"

else

Response.Write "<td>" & strData & "</td>"

end if

 

 

 

 

Response.Write "</tr>"

rs.MoveNext

iNumberOfRows = iNumberOfRows + 1

loop

 

End Sub

 

 

 

Po galera me ajuda http://forum.imasters.com.br/public/style_emoticons/default/clap.gif ae...

 

 

Valew...

[dark0 0]

todas as informações vem iguais?:já tentou usar o replace.. e trocar a , por ;e o - por "" (vazio) ?axo q assim resolveria..