310ke @ ウィキ
http://w.atwiki.jp/310ke/
310ke @ ウィキja2010-04-20T01:19:44+09:001271693984ファイル操作
https://w.atwiki.jp/310ke/pages/27.html
***ディレクトリのファイル一覧を取得
Dim fso, dir, file
Set fso = CreateObject("Scripting.FileSystemObject")
Set dir = fso.getFolder(".")
For Each file In dir.Files
WScript.Echo file.Name
Next
***ファイルを読み込む
Dim fso, reader
Set fso = CreateObject("Scripting.FileSystemObject")
Set reader = fso.OpenTextFile("test.vbs", 1, False)
Do Until reader.AtEndOfStream
WScript.Echo reader.ReadLine
Loop
reader.Close()
***ファイルを書き込む
Dim fso, writer, i
Set fso = CreateObject("Scripting.FileSystemObject")
Set writer = fso.OpenTextFile("write.txt", 2, True)
For i = 1 To 10
writer.WriteLine i
Next
writer.Close()
2010-04-20T01:19:44+09:001271693984メニュー
https://w.atwiki.jp/310ke/pages/2.html
**メニュー
-[[トップページ]]
Oracle
-[[パッケージ、トリガーのソース取得方法]]
-[[SQLの構文チェック方法]]
VBScript Tips
-[[正規表現]]
正規表現
-[[正規表現のパターン]]
-[[正規表現のサンプル]]
SAKURAエディタ
-[[マクロ]]
-[[tagsファイルのフォーマット]]
小技集
-[[ctags vb用tagファイル作成方法1]]
-[[vb用tagファイル作成方法2]]
----
2010-04-20T01:16:48+09:001271693808正規表現
https://w.atwiki.jp/310ke/pages/26.html
**正規表現
***正規表現を使ってパターンに一致するか調べる
Dim re
Set re = New RegExp
re.Pattern = "^A.*$"
If re.Test("ABC") Then
WScript.Echo "matched"
End If
***大文字小文字を区別
re.IgnoreCase = True
***文字列全体を検索対象にする場合
re.Global = True
***正規表現を使って一致する文字列を取得する
Dim re, matches
Set re = New RegExp
re.Pattern = "^A.*$"
Set matches = re.Execute("ABC")
If matches.Count > 0 Then
WScript.Echo matches(0)
End If
***正規表現を使ってキャプチャした文字列を取得する
Dim re, matches
Set re = New RegExp
re.Pattern = "^([A-F]+)_([A-F]+).+"
Set matches = re.Execute("ABC_DEF_GHI")
If matches.Count > 0 Then
WScript.Echo matches.Item(0).SubMatches.Item(0)
WScript.Echo matches.Item(0).SubMatches.Item(1)
End If
***正規表現を使って文字列を置換する
Dim re, matches
Set re = New RegExp
re.Pattern = "^ABC_"
WScript.Echo re.Replace("ABC_DEF_GHI", "XXX_")
***正規表現を使って文字列を置換する（後方参照）
Dim re, matches
Set re = New RegExp
re.Pattern = "^([A-Z]{2})(.*)"
WScript.Echo re.Replace("ABCDE", "XX$2") 2010-04-20T01:14:55+09:001271693695SQL*PlusでのCSV出力方法
https://w.atwiki.jp/310ke/pages/25.html
**SQL*PlusでテーブルデータをCSV出力する方法
set linesize 1000
set pagesize 0
set trimspool on
set colsep ','
set feedback off
spool 出力.txt
select * from emp;
spool off
exit
&bold(){解説}
set linesize 1000 ： 出力ファイル1行の長さ。
set pagesize 0 ： ページの行数。0にすると見出しの出力もされない。
set trimspool on ： スプール出力の最後の出力にスペースを表示させない。
set colsep ',' ： 区切り文字をカンマ区切り。
set feedback off ： 最後の出力に「〜行が選択されました。」を表示させない。
spool 出力.txt ： 結果出力のファイル名を指定。
select * from emp; ： ココが実行SQL。
spool off ： ファイル出力を終了。
exit ： SQL*PLUSを終了。 2010-04-18T02:10:47+09:001271524247SQLの構文チェック方法
https://w.atwiki.jp/310ke/pages/24.html
***動的SQLをチェックする場合
DBMS_SQL をファンクション化してチェック
declare
cid integer;
begin
cid := DBMS_SQL.OPEN_CURSOR;
DBMS_SQL.PARSE(cid, 'select * from emmmp', dbms_sql.v7);
DBMS_SQL.CLOSE_CURSOR(cid);
dbms_output.put_line ('end');
exception
when OTHERS then
dbms_output.put_line ('** エラー **');
end;
***更新SQLをチェックする場合
トランザクションを読み込み専用にして行う
set transaction read only;
トランザクションが設定されました。
update emmmp set empno=1;
*
ORA-00942: 表またはビューが存在しません。
update emp set empno=1;
*
ORA-01456: READ ONLYトランザクションでは挿入/削除/更新ができません。
2010-04-18T01:08:53+09:001271520533vb用tagファイル作成方法2
https://w.atwiki.jp/310ke/pages/23.html
-rubyでvb用のtagsファイルを作成する方法
#!/usr/local/bin/ruby
tags = []
ARGF.each_line do |line|
ARGF.skip if /tags/i =~ ARGF.filename
if /(Sub|Function|Const)\s+([^\s]+)\s*(\(|=)/ =~ line
tags.push "#{$2}\t#{ARGF.filename}\t/^#{line.chomp}$/;\"\tf"
end
end
puts tags.sort
----
2010-04-08T00:04:50+09:001270652690ctags vb用tagファイル作成方法1
https://w.atwiki.jp/310ke/pages/21.html
-ctagsでvb用のtagsファイルを作成する方法
ctags -f xxx.tags --excmd=number -R --languages=Basic --langmap=Basic:.frm.bas.cls --Basic-types=-l -L srcList.txt
----
2010-04-07T23:54:39+09:001270652079tagsファイルのフォーマット
https://w.atwiki.jp/310ke/pages/22.html
-tagsファイルのフォーマット
{タグ名}\t{ファイル名}\t{行番号};"\tp
※最後の文字は他に c n など（意味はわからない）
例：
Culture Properties\Resources.Designer.cs 59;" p
2010-04-07T23:42:01+09:001270651321トップページ
https://w.atwiki.jp/310ke/pages/20.html
トップページです。
-[[メニュー]]
2010-04-07T23:02:26+09:001270648946パッケージ、トリガーのソース取得方法
https://w.atwiki.jp/310ke/pages/19.html
よくある以下の方法では全てを取得することはできない。
----
SELECT
table_name,
status,
owner,
trigger_body
FROM
user_triggers
WHERE
trigger_name = '確認したいトリガ名';
----
すべてのソースを取得する場合は以下の方法。
----
SELECT
*
FROM
user_source
WHERE
name = '確認したいトリガ名'
ORDER BY
name, line;
----
2010-04-06T00:46:17+09:001270482377