Length

[irmy]

Ciao a tutti!

Ho un problema con LEN ... mettendo questo codice sotto ... non arrivo mai che mi visualizza '1' per la variabile 'CliCode'

'Verifica se il Codice contiene la Parola CODICE IMPRESA
If X = 1 Then
CliCode = RigheFile(X)

If InStr(CliCode, "COD") > 0 Or InStr(CliCode, "ICE") > 0 Or InStr(CliCode, "IMP") > 0 Or InStr(CliCode, "RESA") > 0 Then
X = X + 1
CliCode = RigheFile(X)
End If

If Len(Trim(CliCode)) <> 0 Or Len(Trim(CliCode)) <> "" Then
PreCliCode = "esiste" 'me lo fa vedere
Else
PreCliCode = "vuoto" 'non me lo fa vedere
End If
If PreCliCode <> "esiste" Then
CliCode = 1
End If

End If

Grazie per il vostro aiuto!
ciao - Irmy

 

[irmy]

ho visto adesso che il problema comincia già prima ... quando sto caricando il testo da un file di testo.
Quando una riga è vuota si ferma. Vuol dire se nella prima riga c'è solo un 'da capo' la variabile 'inc2' (quantità righe nel textfile) non ha nessun valore, ma non riesco neanche a verificare :-(

io vorrei, in caso che la prima riga è vuota la variabile 'CliCode' = "1", ma non lo riesco a farlo :-(

Set FL = FSO.OpenTextFile(DriveSource & "CEScan\Da Archiviare\" & FileSource, ForReading)
Inc2 = 1
Do While FL.AtEndOfLine = False
RigheFile(Inc2) = FL.ReadLine
Inc2 = Inc2 + 1
Loop
FL.Close
Set FL = Nothing

Grazie per il vostro aiuto
ciao - Irmy