VB初心者質問スレ Part6
レス数が900を超えています。1000を超えると表示できなくなるよ。
0928デフォルトの名無しさん
NGNGどの改行コード(CR,LF,CRLF)でも通すなら
dim tLines$()
dim astr() as byte
dim tstr$
open "hoge.txt" for binary access read as #1
redim astr(lof(1))
get #1,1,astr()
close #1
tstr=replace$(replace$(strconv$(astr(),vbunicode),vbcrlf,vbcr)),vblf,vbcr)
tlines=split(tstr,vbcr)
ミタイナ感じ。滅茶苦茶な使い方だけど普通はこうやってるなー…
ファイルサイズとか何も考えてないんで大きいときは適宜ストリーミングするとか
レス数が900を超えています。1000を超えると表示できなくなるよ。