UWSCで配列を全て展開して出力する
DIM array[] = "すいか","いちご","れもん" //配列
//LENGTHで配列の数を確認し、その分だけ展開させる。
//要素数は「0」から始まるので、LENGTHの結果から-1する。
FOR i = 0 TO (LENGTH(array) - 1)
PRINT array[i]
NEXT
カテゴリー：uwsc
UWSCで改行コードをすべて削除や置換する方法
//改行を全て削除する
moji = REPLACE(moji, "<#CR>", "")
これで改行ができない場合は、CR（キャリッジリターン）とLF（ラインフィード）を指定して削除する。次のコードを追加。
moji = REPLACE(moji, chr(13), "" ) //CRを削除
moji = REPLACE(moji, chr(10), "" ) //LFを削除
カテゴリー：uwsc
PHPでファイルをダウンロードする方法
PHPでファイルをダウンロードするサンプルコードです。
例として、mp3ファイルをダウンロードします
ケース１ サーバーにダウンロードする
------------------------------------------
<?php
// ダウンロード元のファイルパス（絶対パス、ファイル名まで含む）を指定する
$url = 'http://example.com/voice/voice.mp3';
$data = file_get_contents($url);
file_put_contents('./download/hozon.mp3',$data); //ファイルの保存先
?>
------------------------------------------
ケース２ PCにダウンロードする
------------------------------------------
<?php
// ダウンロード元のファイルパス（絶対パス、ファイル名まで含む）を指定する
$fullpath = 'http://example.com/voice/voice.mp3';
// 保存時のファイル名を設定
$filename = 'hozon.mp3';
// HTTPヘッダ送信。ローカルPCに保存するためのダイアログが出る。
header("Content-type: audio/mpeg"); //mp3の場合。ファイルの種類によって適宜変更
header("Content-Disposition: attachment; filename=$filename");
// ファイルを読み込んで出力します。
readfile($fullpath);
?>
------------------------------------------
カテゴリー：PHP
wordpressの再インストールで表示されなくなったときにしたこと
wordpressで運用しているブログがスパムメールの踏み台にされていると発覚。さくらインターネットからもどうにかしろとメールをいただき、wordpressの再構築を行った。
その際につまずいたポイントを覚え書き。
別サーバーにwordpressをインストールして、エクスポートしておいたmysqlデータを新wordpressのデータベースにインポートした。「これで元通りになるだろう」ってところまで進みいざ、URLにアクセスするが表示されず。「500 Internal Server Error」や真っ白画面になった。
--------原因１--------
テーブル接頭辞「wp_」が一致していなかった。
wordpressインストール時に決めた、テーブル接頭辞が元のwordpressと違っていた。一致させるために、インポートしたmysqlデータをいじって新しいwordpressのテーブル接頭辞に合わせる。
変更箇所１
「wp_options」テーブルの「○○_user_roles」の○○の部分。
変更箇所２
「wp_usermeta」テーブルの「wp○○_～」の部分。４、５箇所。「meta_key」カラムをテーブル接頭辞で検索するといい。
--------原因２--------
URLの不一致。
最終的に元のURLに戻すのだが、一時的に新旧のwordpressを両立させることにした。その際、新wordpressのURLは仮の物であるが、設定は旧ブログのまま表示がうまくいかなかった。
解決方法は「wp_options」の「url」と「home」の値をデータベースにアクセスして直接変更。
念のため「wp_options」テーブルの「option_value」カラムに検索をかけて旧アドレスで残っているものはないかも確認する。
また、トップページは表示されるが、それ以外のページが表示されない現象が起こった。パーマリンクの設定が問題のようで、設定をデフォルトにしてから、再度設定したら解消した。
カテゴリー：wordpress
【UWSC】エクセルのワークシートの追加と名前の変更
エクセルのワークシートの追加とワークシート名を変更する記述のメモ
-------------------------------------------------
//対象のエクセル
EXCEL = GetActiveOleObj("Excel.Application", "ファイル名.xls")
//ワークシートの追加
EXCEL.activeworkbook.worksheets.add()
//追加したワークシートの名前の変更。
Excel.ActiveSheet.name = ワークシート名
もしくは、
//(1)は左から一番目のワークシート。
EXCEL.activeworkbook.worksheets(1).name = ワークシート名
※既存のワークシート名を指定すると、重複させられないのでCOMエラーになる
-------------------------------------------------
カテゴリー：uwsc
【mysql】正規表現でひらがなだけの文字列を取り出す
全部ひらがなで構成された文字列だけを抜き出そうと、下記のSQLを実行した。
SELECT field1 FROM table1 WHERE field1 REGEXP '^[ぁ-ん]+$'
しかし文字列の中にひらがなの「む」がはいってない文字列だけマッチしなかった。
文字コードの設定によって起こる現象らしい。
そこで次のように変更↓↓↓
SELECT field1 FROM table1 WHERE field1 REGEXP '^[ぁ-んむ]+$'
「む」を付け足して解決。
カテゴリー：mysql
【UWSC】正規表現、マッチしているかどうかテスト
UWSCで正規表現を使ったマッチしているかどうかのテスト
-------------------------------------------------
re=CreateOleObj("VBScript.RegExp")
re.pattern = ";$" //正規表現のパターン。行末に「;」があればマッチ。
re.Global = True //文字列全体を検索。trueでする(規定)、falseでしない(マッチする文字列が見つかったらそこで終了)。
re.IgnoreCase = True //大文字・小文字を区別。trueでしない(規定)、falseでする。
str = "aaaaa;" //対象の文字列
IFB True = re.Test(str) THEN
PRINT "マッチしている"
ELSE
PRINT "マッチしてない"
ENDIF
-------------------------------------------------
カテゴリー：uwsc
【UWSC】正規表現を使ってマッチした文字列を取り出す
正規表現を使ってマッチした文字列を取り出したい。
UWSCでの正規表現はVBScriptを用いる。
-------------------------------------------------------------
moji = "1234567891000520005" //対象となる文字列
re=CreateOleObj("VBScript.RegExp")
re.pattern = "1.*5" //正規表現パターン。1と5の間の文字を取り出す。
re.Global = True //文字列全体を検索。trueでする(規定)、falseでしない(マッチしたらそこで終了)。
re.IgnoreCase = True //大文字・小文字を区別。trueでしない(規定)、falseでする。
match = re.Execute(moji)
//マッチしたものをすべて出力
for i = 0 To match.Count-1
print match.Item(i).Value
next
-------------------------------------------------------------
出力結果：1234510005
カテゴリー：uwsc
【mysql】特定の長さの文字列だけをselectで取り出す
フィールドの中の、特定の長さのレコードだけを取り出す場合の記述
SELECT * FROM table1 WHERE LENGTH(field1) > 60
カテゴリー：mysql
【PHP】正規表現で置換できない。ereg_replaceとpreg_replaceの記述の違い。
マニュアルどおりやった（つもりだった）んだけどなぜか正規表現の置換がうまく行われない。
記述したのはこれ↓
--------------------------------------------------------------
<?php
$moji ="123456789";
$moji = ereg_replace("/^123/", "aaa",$moji);
echo $moji;
?>
--------------------------------------------------------------
$mojiから先頭の「123」を「aaa」に置き換えるというもの。
期待した結果は「aaa456789」なんだけど、実際の結果は「123456789」。変化無し。マッチしていない。
でいろいろ試行錯誤した結果、単純なミスに気付く。
PHPで正規表現を用いた置換を行う場合は、次の二つの関数がある。
・ereg_replace
・preg_replace
どちらも同じ仕事をするので記述にも違いがないと勝手に思っていたが、そうでないと判明。
正しい記述例
・ereg_replace("パターン", "置換文字",置換前の文字列);
・preg_replace("/パターン/", "置換文字",置換前の文字列);
つまりpreg_replaceの第一引数はパターンを//で囲む必要があるが、ereg_replaceは//で囲む必要がない。
なので最初の失敗は//を取り除くことで解決する
ereg_replace("^123", "aaa",$moji);
出力結果 aaa456789
ただしereg_replaceは将来的になくなる関数らしいので、今後はpreg_replaceを使っていく。
カテゴリー：PHP