[VB.NET] campi con leading 0

[roguewave]

Ciao a tutti.
sto facendo un programmino per modificarmi un tracciato excell in VB.NET.
l'unico problema che ho riscontrato è quello con i numeri con 0 davanti.
quelli scritti senza spazi es. 085845445 avendo la cella tipo testo vengono salvati correttamente.
ho problemi con quelli con spazi e simboli tipo 085/8454545, 04848 48484, ecc.
Io mi tolgo dalla variabile eventuali spazi e simboli (, / . ecc.) ma quando il file csv viene salvato quei campi vengono presi senza lo 0 davanti.
qualche consiglio?

[oregon]

Originariamente inviato da roguewave
qualche consiglio?

Mostrare il codice?

[roguewave]

Dim counter As Integer
                counter = xlWorkSheet.UsedRange.Rows.Count
                For r = 2 To counter
                    If Not xlWorkSheet.Cells(r, 10).Value Is Nothing Then
                        rs += 1
                        xlWorkSheet1.Cells(rs, 1) = " "
                        xlWorkSheet1.Cells(rs, 2) = xlWorkSheet.Cells(r, 2)
                        xlWorkSheet1.Cells(rs, 6) = "ATT"
                        xlWorkSheet1.Cells(rs, 7) = "Attiva"
                        xlWorkSheet1.Cells(rs, 8) = xlWorkSheet.Cells(r, 15)
                        xlWorkSheet1.Cells(rs, 9) = xlWorkSheet.Cells(r, 16)
                        xlWorkSheet1.Cells(rs, 20) = "0"
                        xlWorkSheet1.Cells(rs, 55) = "0"
                        xlWorkSheet1.Cells(rs, 56) = "0"
                        xlWorkSheet1.Cells(rs, 57) = "0"
                        xlWorkSheet1.Cells(rs, 58) = "0"
                        xlWorkSheet1.Cells(rs, 59) = "0"
                        xlWorkSheet1.Cells(rs, 61) = "0"
                        xlWorkSheet1.Cells(rs, 64) = "SEDO"
                        xlWorkSheet1.Cells(rs, 65) = "Sede Operativa"
                        xlWorkSheet1.Cells(rs, 67) = xlWorkSheet.Cells(r, 3)
                        xlWorkSheet1.Cells(rs, 68) = xlWorkSheet.Cells(r, 4)
                        xlWorkSheet1.Cells(rs, 69) = xlWorkSheet.Cells(r, 5)
                        xlWorkSheet1.Cells(rs, 75) = xlWorkSheet.Cells(r, 6)
                        xlWorkSheet1.Cells(rs, 100) = "0"
                        If Not xlWorkSheet.Cells(r, 9).Value Is Nothing Then
                            xlWorkSheet1.Cells(rs, 105) = xlWorkSheet.Cells(r, 9)
                        Else : xlWorkSheet1.Cells(rs, 105) = "contatto"
                        End If
                        xlWorkSheet1.Cells(rs, 109) = "TEL"
                        xlWorkSheet1.Cells(rs, 110) = "Telefono"
                        xlWorkSheet1.Cells(rs, 111) = "1"

                        Dim f As String
                        f = xlWorkSheet.Cells(r, 10).Value
                        xlWorkSheet1.Cells(rs, 112) = f  'nuova cella nel nuovo file
                        f = f.Replace(" ", "")

                        xlWorkSheet1.Cells(rs, 112) = f
                        MsgBox(f)

                    End If

praticamente mi sono fatto una variabile f per vedere cosa fa.
quando appare a video il numero è esatto e con gli spazi tolti.
evidentemente quando lo salva in csv lo considera come numero normale

[MItaly]

Il codice va inserito tra tag [code] ... [/code], altrimenti perde l'indentazione, e il linguaggio di riferimento va specificato nel titolo come "tag"; qui correggo io, in futuro ricordatene (e dai un'occhiata al regolamento).