シーケンシャルファイル読み込み

ファイルから、データを1行ずつ読み込み、strResultに格納するサンプルです。

Dim strPath As String
Dim intFileNum As Integer
Dim strTemp As String
Dim strResult As String
strPath = "D:\aaa.txt"
If Dir(strPath) <> "" Then
intFileNum = FreeFile
Open strPath For Input As #intFileNum
While Not EOF(intFileNum)
Line Input #intFileNum, strTemp
strResult = strResult + strTemp + vbCrLf
Wend
Close #intFileNum
End If

CString strResult = "";
CString strTemp = "";
CStdioFile objFile;
BOOL bolEnd;
if (objFile.Open("D:\\aaa.txt", CFile::modeRead, NULL))
{
while (bolEnd = objFile.ReadString(strTemp), bolEnd)
{
strResult += strTemp + "\r\n";
}
objFile.Close();
}

//"java.io.*"をインポートする必要があります。
// import java.io.*;
File objFile;
String strResult = "";
objFile = new File("D:\\aaa.txt");
if (objFile.exists())
{
BufferedReader objReader;
try
{
objReader = new BufferedReader(
new InputStreamReader(
new FileInputStream(objFile)));
while (objReader.ready())
{
strResult += objReader.readLine() + "\r\n";
}
objReader.close();
}
catch (IOException e)
{
}
}