Il comando Print gia' inserisce tra ogni record la sequenza "0d 0a", cioe' CR/LF.
Ciao
Moderatori: Anthony47, Flash30005
<?xml version="1.0" encoding="UTF-8"?> <-- qui usa LF "0a"
<dict>
<key>channel number</key> <-- qui usa "0a 09 09 09"
<integer>0</integer> <-- qui usa "0a 09 09 09"
marpar ha scritto:Quello che sto cercando di fare è importare un file xml ,,,,
<key>channel number</key> <-- qui usa "0a 09 09 09"
Grazie Antony47... [. . . ] ma dopo aver eliminato i tab il problema persiste.
L'originale, come era lecito aspettarsi, funziona anche senza tab il mio file no.
Cercherò di capire da solo dove sbaglio..
Sub ScriveTxt()
UR = Range("A" & Rows.Count).End(xlUp).Row
Perc = "C:\Temp\" '<<<<<<<<<<<<<<<<<<<<<<<<<< inserisci il percorso effettivo
Open Perc & "Pippo.txt" For Output As #1 '<<<<<<<<<<<< cambia il nome al file secondo l'esigenza
For RR = 1 To UR
Print #1, Range("A" & RR).Value
Next RR
Close #1
End Sub
Sub ScriveTxt()
UR = Range("A" & Rows.Count).End(xlUp).Row
Perc = "C:\Temp\" '<<<<<<<<<<<<<<<<<<<<<<<<<< inserisci il percorso effettivo
Open Perc & "Pippo.txt" For Output As #1 '<<<<<<<<<<<< cambia il nome al file secondo l'esigenza
For RR = 1 To UR
StrA = Mid(Range("A" & RR).Value, 1, 2)
If StrA = "" Then StrA = StrA & " "
If Len(StrA) = 1 Then StrA = StrA & " "
StrB = Mid(Range("B" & RR).Value, 1, 4)
If StrB = "" Then StrB = StrB & " "
If Len(StrB) < 4 Then
StrBS = ""
For SS = Len(StrB) To 3
StrBS = StrBS & " "
Next SS
StrB = StrB & StrBS
End If
StrC = Mid(Range("C" & RR).Value, 1, 8)
If StrC = "" Then StrB = StrB & " "
If Len(StrC) < 8 Then
StrCS = ""
For SS = Len(StrC) To 7
StrCS = StrCS & " "
Next SS
StrC = StrC & StrCS
End If
StrD = Mid(Range("D" & RR).Value, 1, 3)
If StrD = "" Then StrD = StrD & " "
If Len(StrD) = 1 Then StrD = StrD & " "
If Len(StrD) = 2 Then StrD = StrD & " "
Print #1, StrA & StrB & StrC & StrD
Next RR
Close #1
End Sub
Sub ScriveTxt()
UR = Range("A" & Rows.Count).End(xlUp).Row
Perc = "C:\Temp\" '<<<<<<<<<<<<<<<<<<<<<<<<<< inserisci il percorso effettivo
Open Perc & "Pippo.txt" For Output As #1 '<<<<<<<<<<<< cambia il nome al file secondo l'esigenza
For RR = 1 To UR
StrA = Mid(Range("A" & RR).Value, 1, 2)
If StrA = "" Then StrA = StrA & " "
If Len(StrA) = 1 Then StrA = StrA & " "
StrB = Mid(Range("B" & RR).Value, 1, 4)
If StrB = "" Then StrB = StrB & " "
If Len(StrB) < 4 Then
StrBS = ""
For SS = Len(StrB) To 3
StrBS = StrBS & " "
Next SS
StrB = StrB & StrBS
End If
StrC = Mid(Range("C" & RR).Value, 1, 8)
If StrC = "" Then StrB = StrB & " "
If Len(StrC) < 8 Then
StrCS = ""
For SS = Len(StrC) To 7
StrCS = StrCS & " "
Next SS
StrC = StrC & StrCS
End If
StrD = Mid(Range("D" & RR).Value, 1, 3)
If StrD = "" Then StrD = StrD & " "
If Len(StrD) = 1 Then StrD = StrD & " "
If Len(StrD) = 2 Then StrD = StrD & " "
Print #1, StrA & StrB & StrC & StrD
Next RR
Close #1
End Sub
Sub ScriveTxt()
UR = Range("A" & Rows.Count).End(xlUp).Row
Perc = "d:\" '<<<<<<<<<<<<<<<<<<<<<<<<<< inserisci il percorso effettivo
Open Perc & "prova.txt" For Output As #1 '<<<<<<<<<<<< cambia il nome al file secondo l'esigenza
For RR = 6 To UR
colC = Mid(Range("C" & RR).Value, 1, 1)
If colC <> "" Then
colC = Format(colC, "!@@")
Else
colE = " "
End If
cold = Mid(Range("D" & RR).Value, 1, 16)
If Mid(Range("D" & RR).Value, 1, 16) > 0 Then
cold = "+" & Format(Mid(Range("D" & RR).Value, 1, 16), "00000000000.000")
ElseIf Mid(Range("D" & RR).Value, 1, 16) < 0 And Mid(Range("D" & RR).Value, 1, 1) = "-" Then
cold = Format(Mid(Range("D" & RR).Value, 1, 16), "00000000000.000")
End If
colE = Mid(Range("E" & RR).Value, 1, 5)
If colE <> "" Then
colE = Format(colE, "!@@@@@")
Else
colE = " "
End If
colf = Mid(Range("F" & RR).Value, 1, 9)
If colf <> "" Then
colf = Format(Mid(Range("F" & RR).Value, 1, 9), "00000.000")
Else: colf = " "
End If
colg = Mid(Range("g" & RR).Value, 1, 16)
If colg <> "" Then
If Mid(Range("g" & RR).Value, 1, 16) > 0 Then
colg = "+" & Format(Mid(Range("g" & RR).Value, 1, 16), "000000000000.00")
ElseIf Mid(Range("g" & RR).Value, 1, 16) < 0 And Mid(Range("g" & RR).Value, 1, 1) = "-" Then
colg = Format(Mid(Range("g" & RR).Value, 1, 16), "000000000000.00")
End If
Else
colg = " "
End If
colh = Mid(Range("h" & RR).Value, 1, 2)
If colh <> "" Then
colh = Format(colh, "!@@")
Else
colh = " "
End If
coli = Mid(Range("i" & RR).Value, 1, 5)
If coli <> "" Then
coli = Format(coli, "00000")
Else
coli = " "
End If
colj = Mid(Range("J" & RR).Value, 1, 2)
If colj <> "" Then
colj = Format(colj, "!@@")
Else
colj = " "
End If
colk = Mid(Range("K" & RR).Value, 1, 10)
If colk <> "" Then
colk = Format(colk, "ddmmyyyy")
Else
colk = " "
End If
coll = Mid(Range("l" & RR).Value, 1, 10)
If coll <> "" Then
coll = Format(coll, "ddmmyyyy")
Else
coll = " "
End If
colm = Mid(Range("m" & RR).Value, 1, 8)
If colm <> "" Then
colm = Format(colm, "!@@@@@@@@")
Else
colm = " "
End If
coln = Mid(Range("n" & RR).Value, 1, 4)
If coln <> "" Then
coln = Format(coln, "!@@@@")
Else
coln = " "
End If
colo = Mid(Range("o" & RR).Value, 1, 1)
If colo <> "" Then
colo = Format(colo, "!@")
Else
colo = " "
End If
colp = Mid(Range("p" & RR).Value, 1, 6)
If colp <> "" Then
colp = Format(colp, "000000")
Else
colp = " "
End If
colq = Mid(Range("q" & RR).Value, 1, 16)
If colq <> "" Then
colq = Format(colq, "0000000000000000")
Else
colq = " "
End If
colr = Mid(Range("r" & RR).Value, 1, 40)
If colr <> "" Then
colr = Format(colr, "!@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@")
Else
colr = " "
End If
cols = Mid(Range("s" & RR).Value, 1, 5)
If cols <> "" Then
cols = Format(cols, "00000")
Else
cols = " "
End If
colt = Mid(Range("t" & RR).Value, 1, 5)
If colt <> "" Then
colt = Format(colt, "00000")
Else
colt = " "
End If
colu = Mid(Range("u" & RR).Value, 1, 10)
If colu <> "" Then
colu = Format(colt, "0000000000")
Else
colu = " "
End If
colv = Mid(Range("v" & RR).Value, 1, 2)
If colv <> "" Then
colv = Format(colv, "!@@")
Else
colv = " "
End If
colw = Mid(Range("w" & RR).Value, 1, 6)
If colw <> "" Then
colw = Format(colw, "!@@@@@@")
Else
colw = " "
End If
colX = Mid(Range("x" & RR).Value, 1, 9)
If colX <> "" Then
colX = Format(colX, "00000,000")
Else
colX = "00000,000"
End If
coly = Mid(Range("y" & RR).Value, 1, 12)
If coly <> "" Then
coly = Format(coly, "000000000000")
Else
coly = " "
End If
colz = Mid(Range("z" & RR).Value, 1, 26)
If colz <> "" Then
colz = Format(colz, "!@@@@@@@@@@@@@@@@@@@@@@@@@@")
Else
colz = " "
End If
colaa = Mid(Range("aa" & RR).Value, 1, 10)
If colaa <> "" Then
colaa = Format(colaa, "!@@@@@@@@@@")
Else
colaa = " "
End If
colab = Mid(Range("ab" & RR).Value, 1, 1)
If colab <> "" Then
colab = Format(colab, "!@")
Else
colab = " "
End If
colac = Mid(Range("ac" & RR).Value, 1, 12)
If colac <> "" Then
colac = Format(colac, "000000000000")
Else
colac = " "
End If
colad = Mid(Range("ad" & RR).Value, 1, 1)
If colad <> "" Then
colad = Format(colad, "!@")
Else
colad = " "
End If
colae = Mid(Range("ae" & RR).Value, 1, 16)
If colae <> "" Then
colae = Format(colae, "!@@@@@@@@@@@@@@@@")
Else
colae = " "
End If
colaf = Mid(Range("af" & RR).Value, 1, 2)
If colaf <> "" Then
colaf = Format(colaf, "!@@")
Else
colaf = " "
End If
colag = Mid(Range("ag" & RR).Value, 1, 2)
If colag <> "" Then
colag = Format(colag, "!@@")
Else
colag = " "
End If
colah = Mid(Range("ah" & RR).Value, 1, 10)
If colah <> "" Then
colah = Format(colah, "ddmmyyyy")
Else
colah = " "
End If
colai = Mid(Range("ai" & RR).Value, 1, 80)
If colai <> "" Then
colai = Format(colai, "!@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@")
Else
colai = " "
End If
colaj = Mid(Range("aj" & RR).Value, 1, 11)
If colaj <> "" Then
colaj = Format(colah, "!@@@@@@@@@@@")
Else
colaj = " "
End If
colak = Mid(Range("ak" & RR).Value, 1, 34)
If colak <> "" Then
colak = Format(colak, "!@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@")
Else
colak = " "
End If
colal = Mid(Range("al" & RR).Value, 1, 1)
If colal <> "" Then
colal = Format(colal, "!@")
Else
colal = " "
End If
colam = Mid(Range("am" & RR).Value, 1, 16)
If colam <> "" Then
colam = Format(colal, "!@@@@@@@@@@@@@@@@")
Else
colam = " "
End If
colan = Mid(Range("an" & RR).Value, 1, 1)
If colan <> "" Then
colan = Format(colan, "!@")
Else
colan = " "
End If
colao = Mid(Range("ao" & RR).Value, 1, 8)
If colao <> "" Then
colao = Format(colao, "!@@@@@@@@")
Else
colao = " "
End If
colap = Mid(Range("ap" & RR).Value, 1, 4)
If colap <> "" Then
colap = Format(colap, "!@@@@")
Else
colap = " "
End If
colaq = Mid(Range("aq" & RR).Value, 1, 35)
If colaq <> "" Then
colaq = Format(colaq, "!@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@")
Else
colaq = " "
End If
colar = Mid(Range("ar" & RR).Value, 1, 34)
If colar <> "" Then
colar = Format(colar, "!@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@")
Else
colar = " "
End If
Print #1, colC & cold & colE & colf & colg & colh & coli & colj & colk & coll & colm & coln & colo & colp & colq & colr & cols & colt & colu & colv & colw & colX & coly & colz & colaa & colab & colac & colad & colae & colaf & colag & colah & colai & colaj & colak & colal & colam & colan & colao & colap & colaq & colar
Next RR
Close #1
End Sub
Perc = "d:\" '<<<<<<<<<<<<<<<<<<<<<<<<<< inserisci il percorso effettivo
Perc = ActiveWorkbook.Path & "\"
Torna a Applicazioni Office Windows
Macro che scatta quando cambia dato in un altro file Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 14 |
Excel: formula automatica per evidenziare prodotto scaduto Autore: gamma_ray |
Forum: Applicazioni Office Windows Risposte: 3 |
Salvare file excel in formato html escludendo le immagini Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 10 |
Modifica visualizzazione file di una cartella Autore: mastino46 |
Forum: Sistemi Operativi Windows Risposte: 2 |
Visitano il forum: Nessuno e 98 ospiti