人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

(解決時には1名様に1000ptお支払します)
http://q.hatena.ne.jp/1144389973関連の質問なのですが、
ARCServeのバックアップレポートをtxtファイルで はきだせることは
メーカに確認できました。
このtxtファイルをARCServeがはいっているマシンの共有フォルダに
入れて同一セグメントのWindowsXP端末より、VBSでtxtファイルの
末行のみの文字列を 取得してMsgBoxでWindowsXP端末に表示させたい
と考えています。このVBSをお願いできないでしょうか。
よろしくお願いします。


●質問者: meichi
●カテゴリ:コンピュータ インターネット
✍キーワード:txt VBS WindowsXP バックアップ ファイル
○ 状態 :終了
└ 回答数 : 2/2件

▽最新の回答へ

1 ● fester
●1000ポイント ベストアンサー

こちらでいかがでしょうか?


Option Explicit
Const FILENAME = "C:\ARCServeのバックアップレポートのtxtファイル.txt" 'ここを指定してください
Const ForReading = 1, ForWriting = 2, ForAppending = 8

Dim fso
Set fso = WScript.CreateObject("Scripting.FileSystemObject") 
Dim file
Set file = fso.OpenTextFile( FILENAME, ForReading ) 

Dim strALL
strALL = file.ReadAll 
file.Close 

Dim aryLines
aryLines = Split( strALL, vbCrLf ) 

Dim message, i
For i = UBound(aryLines) To 0 Step -1
 message = Trim(aryLines(i))
 If Len(message) > 0 Then
 Exit For
 End If
Next

MsgBox message

Set file = Nothing
Set fso = Nothing


◎質問者からの返答

さっそくありがとうございます。m(_ _)m あとでためしてみます。

確認できました。そこで 追加要望がでてきましたので あとで

再度質問に出します。ありがとうございました。


2 ● AZUY
●10ポイント
Option Explicit
Const ForReading = 1 

Call Main()

Sub Main()
 ' 入力ファイル名
 Dim strInFile
 strInFile = "ファイル名.txt"
 
 Dim inFile
 Set inFile = fso.OpenTextFile( strInFile, ForReading ) 
 
 ' ファイルの内容を変数にすべて読み込み
 Dim strContents
 strContents = inFile.ReadAll 
 inFile.Close 
 
 ' ファイルの内容を配列に変換
 Dim arrLines
 arrLines = Split( strContents, vbCrLf ) 
 
 '最終行をMsg表示
 MsgBox arrLines(UBound(arrLines))

End Sub
関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ