Newsgroup: it.comp.lang.visual-basic
Titolo: QUALE FUNZIONE?

Quale funzione devo usare per conoscere il numero delle stringhe presenti in 
un file txt? Premetto che le stringhe sono di lunghezza variabile.
Grazie a tutti 

 ha scritto

se per 'stringhe' intendi 'linee'
http://www.sundaysw.com/sw/cod_file_lines/index.html

 un file txt? Premetto che le stringhe sono di lunghezza variabile.
mhtml:file://C:\WINDOWS\Desktop\Borms bazar e vb accelerator\FAQ  QuickTip Retrieving text from a specific line of a
TextBox.mht!
http://vbcity.com/forums/topic.asp?tid=21693
comuque una veloce ricerca su gooooogle ti avrebbe fatto
aspettare di meno
--
Fosco

 aspettare di meno
 come "dicettesi" :
http://www.google.it/search?hl=it&q=get+line%2Bvisual+basic&btnG=Cerca&meta=
Risultati 1 - 10 su circa 8.360.000 per get line+visual basic. (0,15 secondi)
http://www.rentron.com/adv_parsing.htm
http://www.experts-exchange.com/Programming/Programming_Languages/Visual_Basic/Q_21460458.html
http://www.developerfusion.co.uk/show/1777/
http://vbcity.com/forums/topic.asp?tid=21693
ecc
--
Fosco

 Grazie a tutti 
Leggi tutto il file riga per riga e le conti con una variabile, ovvero:
dim numFile,strTemp,riga
numFile=freefile
riga=0
open c:\prova.txt for input as #numfile
do while not eof(numfile)
	line input #numfile,strTemp
	riga=riga+1
loop
close #numfile
-- 
Ciao,
	Fabrizio
===  
http://www.negusweb.it
  ===

Sfruttando la funzione di qualche post piu' in alto ("File dentro a 
variabile"):
Public Function ReadFile(ByVal FileName As String) As String
    Dim fn As Integer
    Dim s As String
    On Error GoTo ReadFile_Error
    fn = FreeFile
    Open FileName For Input As #fn
    s = Input(LOF(fn), #fn)
ReadFile_Error:
    Close #fn
    ReadFile = s
End Function
Aggiungo poche righe =)
Public Function LinesCount(ByVal FileName As String) As Long
    Dim s As String
    s = ReadFile(FileName)
    If LenB(s) > 0 Then
        LinesCount = UBound(Split(s, vbNewLine)) + 1
    End If
End Function
Et voila'!
Lokar.copia.incolla
-- 
Sito Comune: 
http://www.it-lang-vb.net/
Manifesto: 
http://www.it-lang-vb.net/docs
­/Manifesto.txt
Statuto: 
http://www.it-lang-vb.net/docs
­/Statuto.txt
UGIdotNET - 
http://www.ugidotnet.org
 

Grazie mille sono riuscito a farlo funzionare!
Siete fantastici! 

 Grazie mille sono riuscito a farlo funzionare!
mmmh... un po' egocentrico, non ti pare? ;)
Ciao 

Siamo riusciti :-)) ? 

 Siamo riusciti :-)) ?
Sono riusciti
-- 
Salutoni
Sergio
Per rispondere... togli il group dall'indirizzo
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

Io a fare una cosa del genere non ci sarei mai arrivato..
Adesso però ho studiato il codice e potrei riscriverlo!
Sono un ragioniere programmatore, e a scuola mi hanno insegnato a malapena 
ad aprire il visual!
Cmq grazie a tutti! 

 ad aprire il visual!
Io lo stesso, solo che a me hanno "insegnato" TurboPascal 3.0 (nemmeno il 
5!) quello tutto nero scritto in giallo senza nemmeno un'ide (non supportava 
nemmeno progetti con più di un file).
Ciao 

Che farsa la scuola! 

 Che farsa la scuola! 
...se non si studia ;-)
-- 
ciao, hal

No no fidati che non è questione di studiare.. :-))
Avete visto quanto poco preparato sono, e pensate che ho 9 in informatica, e 
sono uno dei piu bravi!
Provando un po a programmare per gli affari miei ho constatato che non so 
nulla! 

> Grazie a tutti 
Io ne ho una con meno righe,piu' rapida, ma piuù dispendiosa per la memoria:
Public function countLines(byval file as string) as integer
	dim h as integer
	h=freeFile
	open file for input as #h
	dim ar() as string
	ar=split(input(lof(h),#h),vbCrLf)
	countLines=Ubound(ar)+1
	close #h
end function
a te l'onore(e l'onere) di gestire eventuali errori...(banale, ma non
posso fare tutto io!)