<meta http-equiv="Content-Type" content="text/html; charset=UTF-8" />やあみんな、
以前、ファイルを抽出する方法について質問しましたが、うまくいきました。ここでこれらのファイルを使用したいのですが、ファイルは「.pda-iv」で保存されています（ファイルはパラメータ アナライザ B1506 からのものです）。ファイルを開くスクリプト (ronFolder = Open(directory || deviceName || "\" || "RDS-ID.pda-iv");) で、「ファイルのエラー: パスが無効です」というエラーが発生します。
ファイル名を変更する方法はありますか?たとえば、RDS-ID.pda-iv の代わりに、RDS-ID.text とします。
ファイルを抽出したコードは次のとおりです。
/* 1) このスクリプトは、zip ファイル内のすべてのファイルがテキスト ファイルであることを前提としています。
2) zip ファイルのみがディレクトリ内にあることを確認します (つまり、B1506A データシートの zip ファイルのみ)*/
ディレクトリ=ディレクトリの選択() ; // zip フォルダーが置かれているディレクトリを選択します
ディレクトリ内のファイル=ディレクトリ内のファイル(ディレクトリ） ; //ディレクトリ内のファイルのリストを取得
nファイル= N 個のアイテム(ディレクトリ内のファイル） ; // ディレクトリ内の zip ファイルの数を取得します
のために(私= 1 、私<= nファイル、私++、
ファイル名=ディレクトリ内のファイル[私] ; // リスト内の i 番目のファイルを選択します
/********デバイス名の決定***********/
位置=含まれています(ファイル名、 「_」 ） ; ///(ファイル名の例: GS66508T 65R6 #1_7-19-2016_11-04-28_AM.pda-ds)
装置名=左(ファイル名、位置- 1 ) ;
/****************************************/
/*******抽出されたファイル用のサブディレクトリを作成します。
すべての zip ファイルとは別のディレクトリにあることを確認してください*****/
サブディレクトリ= "C:\R&D Data\TSMC\E-HEMT\GS66508T\GS66508T 65R6 抽出\" ||装置名|| 「\」 ;
ディレクトリの作成(サブディレクトリ) ;
/************************************************ ************************/
ざ=開ける(ディレクトリ||ファイル名、ジップ) ; // 圧縮フォルダを開く
ディレクトリリスト=ざ<<ディレクトリ; // zip フォルダー内のファイルのリストを取得します
nZippedファイル= N 個のアイテム(ディレクトリリスト） ; // dirlist 内のファイル数を取得する
/* dirlist をステップ実行し、各テキスト ファイルを新しいサブディレクトリに保存します*/
のために( k = 1 、 k <= nZippedファイル、 k ++、
もし(右(ディレクトリリスト[ k ] 、 4 ) == "。TXT" 、
文章=ざ<<読む(ディレクトリリスト[ k ]) ;
テキストファイルの保存(サブディレクトリ||ディレクトリリスト[ k 】 、文章） 、 ） ;
) ;
/************************************************ ***********************/
） ;
わかった！とてもシンプルでした。なぜテキストファイルの保存機能に引っかかったのかわかりません。
/* 1) このスクリプトは、zip ファイル内のすべてのファイルがテキスト ファイルであることを前提としています。
2) zip ファイルのみがディレクトリ内にあることを確認します (つまり、B1506A データシートの zip ファイルのみ)*/
ディレクトリ = ディレクトリを選択 (); // zip フォルダーが置かれているディレクトリを選択します
filesInDirectory = ディレクトリ内のファイル(ディレクトリ); //ディレクトリ内のファイルのリストを取得
nFiles = N アイテム(ディレクトリ内のファイル); // ディレクトリ内の zip ファイルの数を取得します
For(i=1, i<=nFiles, i++,
ファイル名 = filesInDirectory ; // リスト内の i 番目のファイルを選択します
/********デバイス名の決定***********/
pos = 含まれる(ファイル名, "_"); ///(ファイル名の例: GS66508T 65R6 #1_7-19-2016_11-04-28_AM.pda-ds)
デバイス名 = left(ファイル名,pos-1);
/****************************************/
/*******抽出されたファイル用のサブディレクトリを作成します。
すべての zip ファイルとは別のディレクトリにあることを確認してください*****/
subDir = "C:\R&D Data\TSMC\E-HEMT\GS66508T\GS66508T 65RG 新しい拡張機能\" ||デバイス名 || "\";
ディレクトリ(サブディレクトリ)を作成します。
/************************************************ ************************/
za = Open(ディレクトリ || ファイル名、zip); // 圧縮フォルダを開く
dirlist = za << dir; // zip フォルダー内のファイルのリストを取得します
nZippedFiles = N 項目(ディレクトリリスト); // dirlist 内のファイル数を取得する
/* dirlist をステップ実行し、各テキスト ファイルを新しいサブディレクトリに保存します*/
for(k=1, k<=nZippedFiles , k++,
If(Right(ディレクトリリスト,4) == ".txt",
text = za << read (dirlist);
fileNameZip = ディレクトリリスト;
pos = Contains(fileNameZip, ".");
newFileName = Left(fileNameZip, pos-1);
新しいファイル名 = 新しいファイル名 || "。TXT";
テキスト ファイルを保存(subDir || newFileName, text),);
);
/************************************************ ***********************/
);
奇妙なことに、手動で開くことはできるのに、スクリプトを動作させることができません。
