delphi還有人用嗎 批處理取文本文件的行數(shù)?
批處理取文本文件的行數(shù)?我以前寫過這個(gè),但它的功能比您要求的多。首先,它顯示每個(gè)文件中的行數(shù),然后顯示文件總數(shù)和行總數(shù)。使用方法:選擇要計(jì)數(shù)的所有目錄或文件并將它們拖到上面。vb怎么獲得txt文件中的
批處理取文本文件的行數(shù)?
我以前寫過這個(gè),但它的功能比您要求的多。首先,它顯示每個(gè)文件中的行數(shù),然后顯示文件總數(shù)和行總數(shù)。使用方法:選擇要計(jì)數(shù)的所有目錄或文件并將它們拖到上面。
vb怎么獲得txt文件中的行數(shù)?怎么實(shí)現(xiàn)?
添加text1,多行屬性應(yīng)設(shè)置為true privatedeclarefunctionsendmessage lib“user32”alias“SendMessage a”(byvalhwndaslong,byvalwmsgaslong,byvalwparameaslong,lparamasany)aslong constemugetlinecount=&HBA Dimfname$,aa$,jj& PrivateSubFormuload()fname=“c:測試.txt將“”更改為您自己的文件名稱和路徑(應(yīng)用程序路徑)OpenfnameForInputAs#1 Text1.Text=“”WhileNotEOF(1)LineInput#1,aa Text1.Text=Text1.Text&aa&vbCrLf Wend jj=SendMessage(Text1.hwnd,EMugetlinecount,1,0)MsgBoxjj EndSub