I forum Ricerca FAQ
Fai una domanda
Ultimo messaggio
billy1
billy1
il 13 gennaio 2003 alle 12:53
181 messaggi dal 12 dicembre 2001
Ciao,
io sto generando da un database una pagina html.
Utilizzo la funzione opentextfile :

Set f = fso.OpenTextFile(percorso, ForAppending, True)

in questo modo, pero' creo correttamente il file html, cioe' viene visualizzato correttamente, pero' il sorgente e' incasinato, viene scritto tutto il codice su una stessa riga...

del tipo :

<table border="1" cellpadding="1" cellspacing="1" width="100%" bordercolor=yellow><tr><td width="100%" bgcolor=#666666><div align="center"><table border="1" cellspacing="0" width="300" cellpadding="2" bordercolor=red><tr><td class="testo" width="50" rowspan="3" bgcolor="#ffffff"><a href="javascript:windprod('../popup/<!--codice_prodotto.value-->.htm')"><img src="IA024A15.JPG" width="75" height="75" border="0"></a></td><td class="testo" width="50" bgcolor="#ebf1ff">Figura</td>..... etc...

come posso fare per identare il codice che creo ?

grazie

billy
RispondiQuoting
Rivettazzo
Rivettazzo
il 13 gennaio 2003 alle 14:37
751 messaggi dal 03 maggio 2002
www.albain.com
- Write([stringa]): di TextStream, scrive senza andare a capo
- WriteLine ([stringa]): di TextStream, se non viene indicata la stinga va semplicemente a capo
- WriteBlankLines (n): di TextStream, inserisce n righe bianche
Tutto si può fare, quando si stà per affogare si impara a nuotare
RispondiQuoting
nick73
nick73
il 14 gennaio 2003 alle 16:58
27 messaggi dal 06 settembre 2002
Quando vuoi andare a capo aggiungi vbNewLine oppure vbCrLf

Es.

stringa=stringa & vbNewLine
oppure
stringa=stringa & vbCrLf
RispondiQuoting
billy1
billy1
il 27 giugno 2003 alle 11:38
181 messaggi dal 12 dicembre 2001
ciao, io ho un file di testo formato da n righe.

Dovrei estrarre ogni riga, magari penso in un loop.

leggo solo la prima riga...

per leggere fino a eof, come faccio ?

Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
record_data = "libri.csv"
percorso = "D:\inetpub\libri\temp_importazione\"
percorsox = percorso&record_data

Const ForReading = 1, ForWriting = 2, ForAppending = 8
Set f = fso.OpenTextFile(percorsox,ForReading)
riga = f.ReadLine
dim arraytrovato
arraytrovato = split(riga,";",-1,1)

titolo = arraytrovato(0)
volume = arraytrovato(1)
codice = arraytrovato(2)
edizione = arraytrovato(3)
autori = arraytrovato(4)
sottocategoria = arraytrovato(5)
categoria = arraytrovato(6)
prezzo = arraytrovato(7)
RispondiQuoting
pegaso
pegaso
il 27 giugno 2003 alle 12:39
512 messaggi dal 30 maggio 2002
Se vuoi leggere tutte le righe ed inserirle in un array (?) puoi fare così:

Dim arraytrovato()
n=0

Do while Not f.AtEndOfStream

Redim Preserve arraytrovato(n)
arraytrovato(n) = f.ReadLine
n=n+1

Loop
se sapessero cosa penso sarei già morto...
RispondiQuoting

Torna al forum | Feed RSS

ASPItalia.com non è responsabile per il contenuto dei messaggi presenti su questo servizio, non avendo nessun controllo sui messaggi postati nei propri forum, che rappresentano l'espressione del pensiero degli autori.