[VB6] File sequenziali

**socialux** · 07-11-2005, 17:53

Ciao a tutti,innanzitutto sn nuova e kiedo scusa se combino qualkosa ke nn devo combinare....

Ho un problema per quanto riguarda i file sequenziali in VB6....devo far si ke aperto un file di tipo html,si effettuino tutti i controlli necessari affinchè il file sia corretto...e nel caso di errori scrivere in un file testo (.txt) la linea contenente l'errore.mi spiego meglio,ho un file html del tipo:
<html>>
<body>
<table>
<tr>
<td>
</td>
</tr>
</table>
</body>
</html>

devo controllare se per esempio la tabella viene kiusa,se esistono altre tabelle all'interno di un'altra tabella,se c'è un td in piu o uno in meno...sarò lieta se qualkuno mi potrebbe dare qualke dritta per tentare di realizzare questo programmino..premetto ke ho una preparazione base...vi ringrazio cmq anticipatamente.

**Luciano79** · 07-11-2005, 18:38

Ciao, così fai capire che questa sia soltanto un'esercitazione per leggere file sequenziali, è così? Non lo chiedo per farmi gli affari tuoi, ma a seconda di questo occorre scegliere il metodo da utilizzare.

**maurorog** · 07-11-2005, 18:43

Ecco, comincia a renderti conto che stai scrivendo su di un forum con una tastiera e non un sms col telefonino.
i nn i k non sono graditi

**alka** · 07-11-2005, 20:05

Originariamente inviato da maurorog
Ecco, comincia a renderti conto che stai scrivendo su di un forum con una tastiera e non un sms col telefonino.
i nn i k non sono graditi

Mi associo e aggiungo di fare attenzione a specificare sempre il linguaggio anche nel titolo.

Questo l'ho modificato io.

Ciao!

**socialux** · 10-11-2005, 23:28

innanzitutto vi ringrazio per essere stati cortesi cn me

,volevo solo precisare che questa è un esercitazione di scuola e che la mia conoscenza del visual basic è base...però vi posto cosa ho pensato di fare..e se avete voglia potete dare un occhiata per modificare, aggiungere,o darmi consigli a riguardo.. grazie.

**socialux** · 10-11-2005, 23:36

ops...il file..

**socialux** · 10-11-2005, 23:42

...ma perchè non si possono allegare i file testo?...

Option Explicit
Dim frase As String
Dim i As Integer
Dim tagsi(1 To 6) As Integer
Dim tags(1 To 6) As String
Dim directory As String
Dim cont As Integer
Dim str_frase As Integer
Dim j As Integer
Dim tagsi2(1 To 6) As Integer
Dim ultimo As String
Dim ultimo2 As String
Private Sub Command1_Click()
cont = 0
For i = 1 To 6
tagsi(i) = 0
Next
Open directory & "\errori.txt" For Output As #2
Close #2
Open directory & "\doc.html" For Input As #1
Do While Not EOF(1)
For i = 1 To 6
tagsi2(i) = 0
Next
Line Input #1, frase
cont = cont + 1
For i = 1 To 6
str_frase = InStr(1, frase, tags(i))
If str_frase <> 0 Then
If i > 1 Then
If (tagsi(i - 1) > 0) And (ultimo <> tags(i)) Then
tagsi(i) = tagsi(i) + 1
ultimo = tags(i)
Else
Open directory & "\errori.txt" For Append As #2
Print #2, "L'errore di " & tags(i) & " è stato riscontrato nella linea " & cont
Close #2
End If
Else
tagsi(i) = tagsi(i) + 1
If tagsi(i) > 1 Then
For j = 1 To 6
str_frase = InStr(1, frase, tags(j))
If str_frase <> 0 Then
If j > 1 Then
If (tagsi2(j - 1) > 0) And (ultimo2 <> tags(j)) Then
tagsi2(j) = tagsi2(j) + 1
ultimo2 = tags(j)
Else
Open directory & "\errori.txt" For Append As #2
Print #2, "L'errore di " & tags(j) & " è stato riscontrato nella linea " & cont
Close #2
End If
End If
End If
Next
End If
End If
End If
Next
Loop
Close #1
End Sub

Private Sub Form_Load()
ultimo = "a"
ultimo2 = "b"
tags(1) = "<table"
tags(2) = "<tr>"
tags(3) = "<td>"
tags(4) = "</td>"
tags(5) = "</tr>"
tags(6) = "</table>"
directory = "C:\....visual basic\file html"
End Sub

Discussione: [VB6] File sequenziali

Strumenti discussione

Ricerca discussione

Visualizza

file sequenziali

Moderazione

buch...

Permessi di invio