- ベストアンサー
ファイルの取り込みの件
jun88kenの回答
- jun88ken
- ベストアンサー率62% (15/24)
ん－、サーバとクライアント（自分のPC)やネットワークなどを勉強したほうが 良いかと思うのですが、なぜ故、自分のPC（クライアント）からサーバにある ファイルをアクセスするのに「//コンピュータ名/C:/TEST/」となるのかが 分からないのですが・・・。 まず、サーバにあるTESTフォルダは共有にして、ネットワーク参照可能に しましょう。(C:\TEST\をTESTという共有名などで) それをすることで \\ServerName\TEST\ として参照することが出来ると 思います。
関連するQ&A
- ファイル書き込み
out.csvファイルに追記していくにはどのように記述すればいいのでしょうか？ アドバイス下さい。 Set objFSO = WScript.CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.OpenTextFile("c:\test.csv") 'objFile.ReadLine Do While Not objFile.AtEndOfStream StrLine = objFile.ReadLine MyString = split(StrLine,",") ' msgbox Mid(MyString(0),2,10) ' MyString = split(objFile.ReadLine,",") if Mid(MyString(0),2,10) = "(PDH-CSV 4" then Set objWFile=objFSO.OpenTextFile("c:\out.csv",2,true) objWFile.write(StrLine) msgbox "!!!" end if ' if Mid(MyString(0),2,10) = DateString then Set objWFile=objFSO.OpenTextFile("c:\out.csv",2,true) objWFile.write(StrLine) ' 'msgbox Mid(MyString(0),2,10) msgbox "???" end if loop objFile.close Set objFSO = Nothing Set objFile = Nothing
- ベストアンサー
- その他（プログラミング・開発）
- OpenTextFile で書き込みできません。
dim ObjFSO,ObjTS 'オブジェクトを作成します。 Set ObjFSO = Server.CreateObject("Scripting.FileSystemObject") 'ファイルを開きます。 Set ObjTS = ObjFSO.OpenTextFile(filename,1,false) filenameにはC:\Documents and Settings\○○○\デスクトップ\test.csvが入っています。 サーバーのパスにtest.csvを持っていくと問題なく動作しますが、それ以外デスクトップからだと「書き込みできません。」とエラーメッセージができません。 どうしたらいいでしょうか？ よろしくお願い致します。
- ベストアンサー
- Microsoft ASP
- CSVファイル
CSVファイルを1行ずつ比較して読み込み、一致した行を別ファイルに記述していこうと思っています。 現在、csvファイルを読み込む所まで出来ています。 比較して別ファイルに記述する方法を教えて下さい。 もしくはアドバイスください。 【ファイルの中身】 "09/09/2005 0:00:00,aaa,bbb,ccc" 【比較条件】 当日の日付を取得し、年月日だけで比較する Dim objFSO ' FileSystemObject Dim objFile ' ファイル読み込み用 Set objFSO = WScript.CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.OpenTextFile("c:\test.csv") Do while objFile.ReadLine <> "" 'IF文を記述(条件：日付) '別ファイルに記述する Loop objFile.close Set objFileSystem = Nothing Set objFile = Nothing
- ベストアンサー
- その他（プログラミング・開発）
- ASP内で他のASPファイルを読み込む方法
ASP内で別ファイル（A.html）を読み込みました。下記の通りです。 <% Set objA = Server.CreateObject("Scripting.FileSystemObject") Set objFile = objA.OpenTextFile("A.html", 1, False) If Err.Number > 0 Then Response.Write "Open Error" Else Do Until objFile.AtEndOfStream Response.Write objFile.ReadAll Loop End If objFile.Close %> 読み込みはできたのですが、問題なのはA.htmlにもASPの処理が書かれてて、その部分がそのままテキストとして表示されたのです。 このように表示されました↓ <% ASP %> 読み込んだ際に、A.htmlに書かれたASP処理も実行させるにはどうすればよいのでしょうか？
- ベストアンサー
- Microsoft ASP
- CSVファイルの読み込み
ASPの勉強をしています。 ＣＳＶファイルを読み込んでＤＢに登録していきたいのですが、 111,222,"aaa[改行]bbb","1,000",444,555 のようなデータがあったとすると、 「1,000」の桁区切りのカンマのせいで、 「1」 と 「000」に別れてしまいます。 これを防ぐプログラムを作りたいのですが、 わかる方よろしくお願いします。 現在はReadLineで1行ずつ読み込んでいます。 set ObjFS = CreateObject("Scripting.FileSystemObject") set Stream = ObjFS.OpenTextFile(Server.MapPath(FILENAME,1,false,0) ReadBuf = Stream.ReadLine
- 締切済み
- Microsoft ASP
- VBスクリプト：ファイル名をファイルに書く
VBスクリプトで以下のようなコードを書いているのですが、上手く動いてくれません。あるディレクトリのファイル名をテキストファイルに書き込むという処理を行いたいのですが。。 配列は、ある順番（ファイル名順）のみ書き込むという処理を付け加えたいため必須です。アドバイスを頂けないでしょうか？宜しくお願い致します。 Set objFS = CreateObject("Scripting.FileSystemObject") Set fl = objFS.GetFolder("D:\") i = 0 For Each objFile In fl.Files str(i) = objFile.Name i = i + 1 Next Set objText = objFS.OpenTextFile("D:\filename.txt") For i = 0 To UBound(fl) objText.WriteLine fl(i) Next objText.Close
- ベストアンサー
- Visual Basic
- ＶＢＳ ファイルマージ処理
特定のDir内、複数ファイルのレコードを全てマージする為、 以下の処理を考えておりますが実現に至っておりません。 Fileがなくなるまで、ループ処理をさせる為、File名 の(1)から(2)へFile名の受け渡し方法が解かりません。 何方か有識者の方、ご教授頂けませんでしょうか もっと賢くマージが出来るので有りますならば、その方法 を教えて頂けませんでしょうか ※Dir内にFileはユニークなFile名にて、複数個作られます。 ※マージに必要なFileだけがDirには作られます。 ※マージするFileの順番は問いません。 (1)C:\temp\temp Dir内のFile名を取得 Set objFso = CreateObject("Scripting.FileSystemObject") Set objFolder = objFSO.GetFolder("C:\temp\temp") objFile = objFso.GetAbsolutepathname("temp_ini.txt") Set objOut = objFso.OpenTextFile(objFile, 2, False) For Each objFile In objFolder.Files objFilemei = objFile.Name objOut.Writeline objFilemei next ※File名の受け渡しがわからず、一旦Fileに書き出してます (2)Fileが無くなるまで、File内のレコードを全て読込み、マージファイルを作成(予定) objFile1 = objFso.GetAbsolutepathname("temp_temp.txt") Set objin = objFso.OpenTextFile("temp_ini.txt",1) Do Until objin.atendofstream = True linedata = objin.readline() loop 説明が悪くてすみませんが、よろしくお願い致します。
- ベストアンサー
- その他（プログラミング・開発）
- 特定のワークシートcsvファイル書き出しほか
エクセルブックの中身が、 1番目 graphシート 2番目から19番目 ワークシート で構成されているエクセルファイルが100個 AAAというフォルダに入っています。 それぞれのエクセルブックにあるシートを、ブックのファイル名にしたフォルダを作成し、その中にcsvで書き出すプログラムを作りました。 また、AAAのフォルダの１つ上のフォルダ（VBA実行するカレントフォルダ）には、テキストファイルもあり、作成されたフォルダに合わせてコピーするようにしています。 一応、期待通りの動作をしましたが、スッキリとしたプログラムとするために、アドバイスをいただけないでしょうか？ また、できれば、それぞれのブックの2番目から7番目のワークシートのみをcsvファイルで書き出したいと思い、シートを2番目から順にアクティブにして書き出すように変更しても1番目のグラフシートからcsvになってしまいました。 特定のワークシートのみをcsvファイルで書き出すにはどのように書いたら良いでしょうか？ よろしくおねがいしむす Sub ファイル一括作成() Application.ScreenUpdating = False '対象ブックの選択 'フォルダ内のブックを順次選択 Dim FolderPath As String Dim objFSO As Object Dim objBook As Object Dim objFiles As Object Dim objFile As Object Dim mysma4 As Object Set objFSO = CreateObject("Scripting.FileSystemObject") FolderPath = ActiveWorkbook.Path & "\AAA" Set objBook = objFSO.GetFolder(FolderPath) Set objFiles = objFSO.GetFolder(FolderPath).Files Set mysma4 = objFSO.GetFile(ActiveWorkbook.Path & "\fig_all.TXT") For Each objFile In objFiles If objFSO.GetExtensionName(Path:=objFile) Like "xlsx" Then 'ベースファイル名フォルダ作成&sma4ファイルコピー objFSO.CreateFolder Path:=FolderPath & "\" & objFSO.GetBaseName(objFile) mysma4.Copy Destination:=FolderPath & "\" & objFSO.GetBaseName(objFile) & "\fig_all.TXT" '各ファイルcsv書き出し Workbooks.Open objFile.Path For Each ws In Worksheets '各シートに対して処理を繰り返す ws.Activate 'ベースファイルと同じ階層に出力 ActiveWorkbook.SaveAs _ Filename:=FolderPath & "\" & objFSO.GetBaseName(objFile) & "\" & ws.Name & ".csv", _ FileFormat:=xlCSV Next ws ActiveWorkbook.Close SaveChanges:=False Else End If Next MsgBox "ファイル作成が完了しました。" Set objFSO = Nothing Set objBook = Nothing Set objFiles = Nothing Set mysma4 = Nothing Application.ScreenUpdating = True End Sub
- ベストアンサー
- Excel（エクセル）
- テキストファイルに追加する
こんにちは。 早速ですが、 http://www.yasch.com/asp/frame.asp?viewurl=sample.html を参考にしながらテキストファイルに追加出来るスクリプトを作成しているのですが、 Set WDateFile = objFile.OpenTextFile(Server.MapPath(Wk_FName), 2, TRUE) をSet WDateFile = objFile.OpenTextFile(Server.MapPath(Wk_FName), 8, TRUE) にするとテキストファイルの下の行に追加出来たのですが、これを上の行に追加させる事は出来るのでしょうか？ データベースを使えばいいのかもしれませんが、まだまだ勉強不足のため思うように出来ません。申し訳ないです。 ご回答のほど宜しくお願い致します。
- ベストアンサー
- Microsoft ASP
- Perlで異なるフォルダからファイルをコピーし、ファイル名を変更する方法を教えてください
前回類似するお願いをしたのですが、 もう一度ご質問させてください。 <やりたいこと> c:\scriptフォルダにある「copyAndRename.cgi」を 起動し、ファイルコピーとRenameをする処理を 行ないたい。 <ファイルコピーの内容> C:\test1フォルダにあるファイル名「test.test.csv」 を、c:\test2フォルダにコピーする <ファイルRenameの内容> C:\test2フォルダにコピーした、ファイル 名「test.test.csv」の「.」をなくし「-」を置き換え、「test-test-csv」とファイル名に変更する処理をしたい。 <できていること> (1)の処理は行なえているので問題ありません。 (2)の処理に関しては、以前の質問させていただいた 回答から、下記のようなスクリプトを書き、実行した が、Renameされませんでした。 ----- $A="test.test.csv"; $B=$A; $B=~s/\./-/; # ドットを全置換により[-]に変更。 rename $A,$B; ----- 実行している、「copyAndRename.cgi」が格納されている c:\svriptフォルダに、「test.test.csv」をおいて テストをしてみると正常に起動します。 renameを行なう際のパスの切り方がわかれば 解決できると思うのですが、わかりません。 初心者の質問で恐縮ですが、どなたかお教えください。
- ベストアンサー
- CGI