出来るのだＡＳＰ Ｑ＆Ａ掲示板（過去ＬＯＧ） 　訪問数 52046 昨日 889 今日 776
     【PR】 パソコン入門からIT専門書まで幅広く取り揃えています。セブン-イレブン受取り手数料無料のセブンアンドワイ。
Topに戻る 掲示板に戻る 検索 削除 管理者
[1548] テキストファイルの読み込みについて
投稿者：しゃとるさん 2002/01/29 11:00:26
ASP初心者です。
サンプルのテキストファイルの読み込みについてを
参考にTEXTの文字、数字DATAをWEB表示させようと思っております。
サンプルでは、テキストファイルの中のすべてのDATAが表示されますが
ファイル内の一部の文字列を表示させるのにはどうすればいいのでしょうか。
たとえば3行目を表示とか、4行目の5桁〜15桁の間の文字列を表示させたりしたいのです。
下のサンプルのどこを直すのかがいろいろ参考書見ましたが良くわかりませんでした。

また、TEXTファイルの中の数字DATAを使って円グラフも表示させたいのですがASPで可能でしょうか。

以上教えたいただけないでしょうか。
よろしくお願いします。
※サーバー内のTEXTファイルは、10分ごとに上書き更新されています。


<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<meta http-equiv="Content-Type" content="text/html; charset=x-sjis">
<META http-equiv="Content-Style-Type" content="text/css">
<TITLE>テキストファイルの読み込みについて</TITLE>
</HEAD>
<body bgcolor="#000000" text="#FFFFFF" link="#00FFFF" vlink="#FF00FF" style="font-family: ＭＳ ゴシック, ＭＳ Ｐゴシック; font-size: 12pt">

<%
'
Call Read_Data("***.txt")
'
'*-----------------------------------------------------------------------------*
'* データの読み込み
'*-----------------------------------------------------------------------------*
Sub Read_Data(Wk_FName)
On Error Resume Next
Set objFile = Server.CreateObject("Scripting.FileSystemObject")
Set DataFile = objFile.OpenTextFile(Server.MapPath(Wk_FName), 1, FALSE)
If Err.Number > 0 Then
Call error("Read Error : " & Wk_FName)
Else
Do Until DataFile.AtEndOfStream
Response.Write DataFile.ReadLine & "<br>" & vbCRLF
Loop
End If
'
DataFile.Close
Set DataFile = Nothing
Set objFile = Nothing
'
On Error GoTo 0
End Sub
'
'*-----------------------------------------------------------------------------*
' エラー処理
'*-----------------------------------------------------------------------------*
Sub error(Wk_In)
Response.Write "<hr size=1>" & vbCRLF
Response.Write "<center>ERROR !<br><br>" & Wk_In & "</center>" & vbCRLF
Response.Write "<hr size=1>" & vbCRLF
Response.Write "</BODY>" & vbCRLF
Response.Write "</HTML>" & vbCRLF
Response.End
End Sub
%>
</BODY>
</HTML>

テキストファイルの読み込みについて 　 しゃとるさん [2002/01/29 11:00:26] [1548]
　 Re:テキストファイルの読み込みについて 　 YasNet（管理人）さん [2002/01/29 12:23:39] [1560]
　 　 Re:テキストファイルの読み込みについて 　 YasNet（管理人）さん [2002/01/29 12:32:44] [1562]
　 Re:テキストファイルの読み込みについて 　 Tomitomiさん [2002/01/29 13:29:34] [1563]
　 　 Re:テキストファイルの読み込みについて 　 しゃとるさん [2002/01/29 14:41:33] [1566]

TreeBBS For ASP V.0.1.3
Program By ＹａｓＮｅｔ