Newsgroup: it.comp.lang.visual-basic
Titolo: mi ignora [was "array da file txt incluso"]

saluti,
scusate se posto un nuovo topic su uno trattato ieri, ma sto ng ha un
traffico spaventoso :)
mi ricollego al topic "array da file txt incluso".
come dicevo, non essendo un programmatore VB ma VBS (per asp) trovo molte
somiglianze col linguaggio ma ovviamente non e' tutto, percio' notando che
la funzione:
function getArrayFromTextFile(nomeFile)
 set fsoTxt = CreateObject("Scripting.FileSystemObject")
 set f = fsoTxt.GetFile(nomeFile)
 set txstr = f.OpenAsTextStream(1)
 str = txstr.ReadAll
 getArrayFromTextFile= Split(str, vbCrLf)
 set txstr = nothing
 set f=nothing
 set fsoTxt=nothing
end function
che riceve il nome del file da aprire:
pippo=getArrayFromTextFile("file.txt")
non sembra minimamente considerarmi, non sono capace neanche di fare il
debug.
spiego quel che deve succedere:
il server di posta ha un MTA, il quale ha il compito di pre-processare i
messaggi passando attraverso un VBS che ne scansiona i contenuti.
in particolare cerca estensioni "pericolose" negli attach (.vbs .com .exe
ecc...) e cerca del testo nel corpo e nell'oggetto della mail (per lo
spamming).
percio' nell'array delle keywords da cazziare ho (nel formato originale del
vbs, che funziona) qualcosa del genere:
extStrings = Array(".vbs",".pif",".scr", e cosi' via)
diventa scomodo quando si tratta di molte keys, percio' ho pensato di
agganciarmi a un file txt esterno, dove le keys sono separate da vbCrLf:
.vbs
.pif
.scr
e cosi' via
beh, se provo a usare uno scrippettino vbs come mi ha consigliato il buon
termoPilucco, funziona tutto.
quando poi vado a farlo eseguire al MTA del mailserver, viene completamente
ignorato (e non ho quindi la possibilita' di debuggarlo, perche' e' un
processo eseguito internamente al server di posta).
in sostanza l'array extStrings = Array(".vbs",".pif",".scr", e cosi' via)
funziona, mentre da file esterno no.
dov'e' l'errore?
saluti
sp-

in caso fosse utile, lo script originale, con l'array NON da file esterno e'
scaricabile qua
http://www.allprosoftware.com/freestuff/WunderKill.zip
saluti
sp-

 mi ricollego al topic "array da file txt incluso".
Perchè ricollegarsi quando bastava continuare?
Così costringi chi volesse aiutarti a cercarsi l'altro topic e Google a
creare due riferimenti diversi che certo non favoriranno la ricerca.
Io mi fermo qui.

 Io mi fermo qui.
vabe' facciamone una questione ideologica.
grazie lostesso.
sp-
ps. tolto il fatto che ho riesposto la situazione sin dall'inizio, percio'
penso IMHO si possa capire anche senza leggere il topic precedente.

 precedente.
E gli interventi degli altri? Non pensi che possano comunque essere utili
alla comprensione?

 alla comprensione?
si, certamente.
si era infatti giunti alla funzione di termoPilucco che ho riportato pari
pari:
function getArrayFromTextFile(nomeFile)
 set fsoTxt = CreateObject("Scripting.FileSystemObject")
 set f = fsoTxt.GetFile(nomeFile)
 set txstr = f.OpenAsTextStream(1)
 str = txstr.ReadAll
 getArrayFromTextFile= Split(str, vbCrLf)
 set txstr = nothing
 set f=nothing
 set fsoTxt=nothing
end function
da richiamare con pippo=getArrayFromTextFile("file.txt"), se non vado
errato.
penso si possa continuare da qua.
comunque hai ragione, non e' il caso di continuare questa polemica (e
sinceramente non ne ho ne voglia ne tempo ne vedo perche' debba essere +
interessante la polemica del resto).
mi arrangio da solo.
grazie.
saluti
sp-

 cosa è raramente apprezzata...
Non vedo altro motivo.
Io avevo iniziato a rispondere, poi ho cancellato il messaggio.
Do la priorità a chi rispetta le regole di buona educazione.
Alberto

 mi arrangio da solo.
No, no, per carità, non ho mai detto ad alcuno di non intervenire. Ci
mancherebbe.

 attendo paziente.
ok attendero' paziente.
saluti
sp-