ab.com コミュニティ

コード: 全て選択

Macro LINEINPUT(FileNumber As Long, ByRef strBuffer As String)
  Dim Buf As BytePtr
  Dim Size As Long
  Dim Length As Long

  FileNumber = FileNumber - 1
  Size = GetFileSize(_System_hFile[FileNumber], 0) - _
    SetFilePointer(_System_hFile[FileNumber], 0, NULL, FILE_CURRENT)

  Buf = calloc(Size + 1)
  ReadFile(_System_hFile[FileNumber], Buf, Size, VarPtr(Size), ByVal NULL)

  Length = 0
  While TRUE
    Select Case Buf[Length]
      Case NULL
        Exit While
      Case 10  'LF
        SetFilePointer(_System_hFile[FileNumber], Length + 1 - Size, NULL, FILE_END)
        Exit While
      Case 13  'CR or CRLF
        SetFilePointer(_System_hFile[FileNumber],
          Length + 1 - (Buf[Length + 1] = 10) - Size, NULL, FILE_END)
        Exit While
      Case Else
        Length = Length + 1
    End Select
  Wend
  strBuffer = ZeroString(Length)
  memcpy(StrPtr(strBuffer), Buf, Length)

  free(Buf)
End Macro

コード: 全て選択

memcpy(Mid$,buf+StartPos,ReadLength)

コード: 全て選択

'まけイヌさん's ライブラリ 利用

#N88BASIC
#include "linput.sbp"

'■変数宣言
Dim	hID		As Long		'<< ファイルＩＤを受け取るための変数
Dim	s		As String	'<< 取得した文字列を受け取るための変数

'■■サンプルファイル１
'■ファイルの終端が改行されていないケース。
hID	= liOpen("test2.txt")	'<< ファイルＩＤを取得
While liGet( hID, s)		'<< FALSEが返るまで１行ずつ文字列を取得
	'内容表示
	'Print s
Wend
liClose(hID)				'<< ファイルＩＤを解放

Input s
End

コード: 全て選択

' 上記案の自前LineInput

#N88BASIC
#include <WSLib6_LikeStringC.sbp>

Dim s As String

Open "test2.txt" For Input As #1
	While (Eof(1)=0)
		LineInput 1, s
		'Print s
	Wend
Close 1

Input s
End

コード: 全て選択

#strict

Dim s As String

Open "test2.txt" For Input As #1
	While (Eof(1)=0)
		Line Input #1, s
'		Print s
	Wend
Close 1

Input s
End

コード: 全て選択

Function Mid$(buf As String, StartPos As Long)(ReadLength As Long) As String
	Dim length As Long

	StartPos=StartPos-1
	If StartPos<0 Then
		'error
		'Debug
		Exit Function
	End If

	length=Len(buf)
	If length<=StartPos Then Exit Function

	If ReadLength=0 Then
		ReadLength=length-StartPos
	End If

	If ReadLength>length-StartPos Then
		ReadLength=length-StartPos
	End If

	Mid$=ZeroString(ReadLength)
	memcpy(Mid$,StrPtr(buf)+StartPos,ReadLength)
End Function

コード: 全て選択

#N88BASIC
' ↓ ここからプログラムが実行されます

Dim fd As Long, buf As String
fd=liOpen("snrmain.php")
Print Time$()

While liGet(fd, buf)>0
Wend

Print Time$()
liClose(fd)

コード: 全て選択

Dim buf As String
Open "snrmain.php" For Input As #1
Print Time$

While Eof(1)=0
	Line Input #1, buf
Wend

Print Time$
Close #1

コード: 全て選択

'内部関数。
'指定された文字（Byte型）が大文字なら小文字にして返す。
Function __WsByteLower( a As Byte ) As Byte
	If( TRUE=IsCharUpper(a) )Then
		__WsByteLower = a + 32
	Else
		__WsByteLower = a
	EndIf
EndFunction
'bBaseb文字列の中でSearch文字(Byte型でアスキーコード指定)が最初に現れるポインタを返す。
'無ければNULLを返す。C言語のstrchr()に相当。
'　※上記の__WsByteLower()を利用しています。
Function WsStrChr( pBase As BytePtr, bSearch As Byte ) As BytePtr
	dim nBaseSize As Long
	dim i As Long
	dim j As Long
	dim FinishTF As Long
	WsStrChr = NULL

	nBaseSize = lstrlen( pBase )

	i = 0
	While( i<nBaseSize-1 )
		If( __WsByteLower( GetByte(pBase + i) ) = __WsByteLower( bSearch ) )Then
			WsStrChr = pBase + i
			ExitWhile
		EndIf
		i = i + 1
	Wend

EndFunction



'LineInputのエミュレート案
Macro LINEINPUT( FileNumber As Long, ByRef strBuffer As String )
	Dim poTemp As BytePtr
	Dim nReadSize As Long
	Dim nFileSize As Long
	Dim hFp As Long
	Dim nLeftSize As Long
	Dim nFpUnitMove As Long
	Dim pMark As BytePtr
	Dim b As Byte
	Dim nShouldGetLength As Long

	'パラメータのセット
	FileNumber = FileNumber - 1
	nFileSize = GetFileSize( _System_hFile[FileNumber], 0 )
	hFp = SetFilePointer( _System_hFile[FileNumber], 0, 0, FILE_CURRENT )
	nLeftSize = nFileSize - hFp

	'一端全て読み込むためのバッファー確保
	poTemp = calloc( nLeftSize+1 )
	ZeroMemory( poTemp, nLeftSize+1 )

	'読み込み
	ReadFile( _System_hFile[FileNumber], _
				poTemp, _
				nLeftSize, _
				VarPtr(nReadSize), _
				ByVal NULL )

	'LFで分割。
	pMark = WsStrChr( poTemp, 10 )
	If( pMark=NULL )Then
		nShouldGetLength = lstrlen( poTemp )
		strBuffer = ZeroString( nShouldGetLength + 1 )
		strBuffer = lstrcpy( strBuffer, poTemp )
		Exit Macro
	Else
		'引数に代入すべき文字列の長さを得る。
		b = GetByte( pMark-1 )
		If( b=13 )Then
			nShouldGetLength = pMark - poTemp - 1
		Else
			nShouldGetLength = pMark - poTemp
		EndIf
		'ファイルポインタの移動先（代入文字列の分だけ進める）を計算。
		nFpUnitMove = hFp + ( pMark - poTemp ) + 1
	EndIf

	'LFの手前までを引数に代入
	SetByte( poTemp + nShouldGetLength, 0 )
	strBuffer = ZeroString( nShouldGetLength + 1 )
	strBuffer = lstrcpy( strBuffer, poTemp )

	'ファイルポインタの調整
	hFp = SetFilePointer( _System_hFile[FileNumber], nFpUnitMove, 0, FILE_BEGIN )

	'バッファー開放
	free( poTemp )

End Macro