e non te la esclude comunque?
Quando i due record sono uguali i 30 min di differenza non ci sono quindi dovrebbe comunque escluderlo.

Grazie, ho risolto prevedendo un'ulteriore condizione if... end if

 
PercorsoCSV = "D:\Inetpub\wwwroot\Folder\test.csv "
 
  '//INIZIALIZZO L'OGGETTO FSO
  Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
 
  '//APRO IL FILE CSV
  Set objFile = objFSO.OpenTextFile(PercorsoCSV)  
 
  '//SALTO LA PRIMA RIGA DELLE INTESTAZIONI
  objFile.SkipLine() 
 
  '//DATA DI PARTENZA
  precedentedataora = "01/01/1900 00:00:00" 
 
  '//INIZIO CICLO
  Do While Not objFile.AtEndOfStream
 
  '//LEGGO RIGA PER RIGA
      strText = objFile.readLine 
 
  '//SPLITTO IL TESTO PER VIRGOLA PER IL NUMERO VALORI DA LEGGERE PER RIGA
      arrText = split(strText, ",", 17)
 
'//COSTRUZIONE STRINGA PER CONFRONTO
    DataCostruita =  convertDate(replace(arrText(2), """", ""))
    OraCostruita = replace(arrText(3), """", "")
 
    strDataOraCostruita = DataCostruita & " " & OraCostruita
 
'//CONTROLLO ORARIO
if datediff("n", precedentedataora, strDataOraCostruita) >= 30 then
 
'//INSERISCO NEL DB ACCESS
      strSql = "INSERT INTO ... "
      cn.execute(strSql) 
 
      precedentedataora = strDataOraCostruita 
 
'//FINE CONTROLLO ORARIO
end if
 
'//FINE CICLO
Loop
 
'//CHIUDO E DISTRUGGO OGGETTO
  objFile.Close()
  Set objFile = Nothing
 
'//DISTRUGGO OGGETTO
  Set objFSO = Nothing

Ed in effetti quando l'orario tra una riga e l' altra è inferiore a 30 minuti non la registra: è già un buon passo.

Mi sono reso conto, però, che ho un altra difficoltà da superare:

• La riga del file CSV va esclusa non solo quando l'ora del precedente record e quella del record successivo presentano una differenza in minuti è maggiore di 30, ma anche quando i dati del precedente record e quelli del record successivo sono uguali...

Che problema...

Certo che è possibile, penso che tu abbia implementato un ciclo che legge riga per riga finquando non finisce il file ed inserisce i dati nel db, puoi sempre fare un controllo tra l'ora del precedente record e quella del record successivo se la differenza in minuti è maggiore di 30 allora inserisci nel db.

uno pseudo codice:

>
precedentedataora = "01/01/1900 00:00:00"
while (il file non è stato letto tutto)
  dataoraattuale = leggilineadelfile  
  if datediff("n",precedentedataora ,dataoraattuale) >= 30 then
    inserisci il tutto nel db
    precedentedataora = dataoraattuale 
  end if
wend

>```
 
se hai dei dubbi sul codice posta pure
 
Grazie per aver risposto ed avermi dati almeno la speranza che si può fare.
 
Non ho ben capito il tuo suggerimento, forse se ti posto il codice originale, puoi spiegarmi meglio, ti dispiace ? :D :
 

PercorsoCSV = "D:\Inetpub\wwwroot\Folder\test.csv "

'//INIZIALIZZO L'OGGETTO FSO
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

'//APRO IL FILE CSV
Set objFile = objFSO.OpenTextFile(PercorsoCSV)

'//SALTO LA PRIMA RIGA DELLE INTESTAZIONI
objFile.SkipLine()

'//INIZIO CICLO
Do While Not objFile.AtEndOfStream

'//LEGGO RIGA PER RIGA
strText = objFile.readLine

'//SPLITTO IL TESTO PER VIRGOLA PER IL NUMERO VALORI DA LEGGERE PER RIGA
arrText = split(strText, ",", 17)

'//INSERISCO NEL DB ACCESS
strSql = "INSERT INTO ... "
cn.execute(strSql)

'//FINE CICLO
Loop

'//CHIUDO E DISTRUGGO OGGETTO
objFile.Close()
Set objFile = Nothing

'//DISTRUGGO OGGETTO
Set objFSO = Nothing

uno pseudo codice:

precedentedataora = "01/01/1900 00:00:00"
while (il file non è stato letto tutto)
  dataoraattuale = leggilineadelfile  
  if datediff("n",precedentedataora ,dataoraattuale) >= 30 then
    inserisci il tutto nel db
    precedentedataora = dataoraattuale 
  end if
wend

se hai dei dubbi sul codice posta pure