UWSC 掲示板

[HOME] [削除] [検索] [過去ログ] [管理人用]

新規投稿

お名前
題　名
本　文
文字色 ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■
削除キー
URL
題名は質問内容を表したものにして下さい
ネットゲーム関係の質問はご遠慮下さい


古いファイルの削除　UWSC大好き
DOSの forfiles コマンドのたとえば、「30日前のファイルを削除」をUWSCで行うにはFSOオブジェクト等を用いるしかないのでしょうか？。
今後ぜひ組み込んでほしいです。勝手なことを申し上げましてすみません、ご検討ください。
DATE：2013/5/19(Sun) 13:54 No.4853

RE:古いファイルの削除　すがり

そのまんまDOSCMD関数を使えばよいのでは。
DATE：2013/5/20(Mon) 01:14


二次元配列の値の取得　たける
二次元配列の片方だけの値を取得したいと思い色々試したのですがわからなかったので質問させて頂きました。

配列[][] = 1,"赤",2,"青",3,"白",4,"黒",5,"黄"

とした時に番号だけ取得してセレクトボックスなどに表示させたいのです。

よろしくお願いします。
DATE：2013/5/19(Sun) 15:09 No.4854

RE:二次元配列の値の取得　Liners

// >二次元配列の片方だけの値を取得したい
// 基本的に無理。配列を分けるか、表示用にループで回して別配列に入れる
// ただし、今回のように数字・文字の組み合わせで数字だけなら抽出して可能

dim 配列[][1] = 1,"赤",2,"青",3,"白",4,"黒",5,"黄"
slctbox(SLCT_btn, 0, "二次元配列の数字のみ", split(join(配列), " ", FALSE, TRUE))
DATE：2013/5/19(Sun) 16:46

RE:二次元配列の値の取得　たける

Linersさんありがとうございます。
数字の取得は成功しました。
そこで今度は文字を取得しようとして

FOR a = 0 to LENGTH(配列)
　　　b[] = 配列[a][1]
NEXT

としてループで回したんですが「次元数が違う？」みたいな警告が出てしまいました。

お手数をお掛けして申しわけありませんがよろしくお願いします。
DATE：2013/5/19(Sun) 19:34

RE:二次元配列の値の取得　たける

自己解決しました。

FOR a = 0 to LENGTH(配列)
　　　b[a] = 配列[a][1]
NEXT

としたところ文字も取れました。

Linersさん本当にありがとうございました。
DATE：2013/5/19(Sun) 19:58


RE:RE:情報が一致したら実行するスクリプトについて教えてください　sayu
Linersさんありがとうございます。
さっそく教えていただいたのでやってみたいと思います。
DATE：2013/5/19(Sun) 01:17 No.4852


情報が一致したら実行するスクリプトについて教えてください　sayu
スクリプト内に書かれているユーザー情報とPC内のユーザー情報が一致していればスクリプトを実行する。というのをやりたいのですがどの関数とかを使えばできるのでしょうか？
今考えているユーザー情報は、IPアドレスかユーザー名で認証しようと考えています。
教えていただけないでしょうか？
よろしくお願いします。
DATE：2013/5/18(Sat) 17:31 No.4851

RE:情報が一致したら実行するスクリプトについて教えてください　Liners

// ぴったりの関数はありませんが、IPアドレスの取得は、たくさん書けます。
// それにしても知恵袋で似たような質問を見かけたような・・・まっあれは、間違いも多いし、難しく回答する傾向にある。
// 私なら、１・２行でサッサと済ませます。

ip = trim(betweenstr(doscmd("ipconfig | find <#dbl>IPv4<#dbl>"), ":")) // Vista以降
msgbox("IPアドレス　"+ ip +"<#cr>ユーザー名　" + doscmd("echo %username%"))
DATE：2013/5/18(Sat) 21:10

RE:情報が一致したら実行するスクリプトについて教えてください　Liners

// 追加：認証サンプル

if ip <> "00.00.00.00" or trim(doscmd("echo %username%")) <> "ユーザー名"
　　slctbox(SLCT_btn, 10, "このPCは認証されておりません", "強制終了します")
　　exitexit
endif
msgbox("プログラムを開始します")
DATE：2013/5/18(Sat) 23:28


Calcをリンクの更新を有効にして開くには　みじんこ
外部リンクを含むLibreOffice Calcのファイルを、「リンクの更新をしますか？」というメッセージを表示させずに更新を有効にした状態でXLOPENで開きたいのですが、上手くいきません。
下記の2つは試したのですが、いずれも起動時のメッセージは非表示になるものの、更新は無効のままでした。

EXCEL_COM = XLOPEN(path, XL_OOOC,"UpdateLinks:=3")
EXCEL_COM = XLOPEN(path, XL_OOOC,"UpdateLinks:=xlUpdateLinksAlways")

UpdateLinksの部分がEXCELとCalcでは異なるのでしょうか。
もしそうであればCalcでの記述方法を教えていただきたいです。
(Pro版を使用しています)
DATE：2013/5/16(Thu) 20:11 No.4850

RE:Calcをリンクの更新を有効にして開くには　umiumi

OOOのCalcでは、"UpdateDocMode" です。
http://www.openoffice.org/api/docs/common/ref/com/sun/star/document/UpdateDocMode.html

EXCEL_COM = XLOPEN(path, XL_OOOC, "UpdateDocMode=3")　// 3:FULL_UPDATE
DATE：2013/5/17(Fri) 23:00


ページ内の検索について　リキュール
以下のように検索窓を表示した後、検索文字を入力し、右に表示される「一致はありませんでした」を確認したいです。
ソースに表示されないのでinnertextでは取得出来ないようです。
よろしく御願いいたします。

IE = CreateOLEObj("InternetExplorer.Application")
IE.Visible = True
IE.Navigate("http://○○○")
BusyWait(IE)
id = GETID("Internet Explorer", "IEFrame")
CTRLWIN(id, ACTIVATE)
KBD(VK_ALT,DOWN)
KBD(VK_E,CLICK)
KBD(VK_ALT,UP)
KBD(VK_CTRL,DOWN)
KBD(VK_F,CLICK)
KBD(VK_CTRL,UP)
DATE：2013/5/15(Wed) 23:30 No.4848

RE:ページ内の検索について　Liners

msgbox(GetStr(id, 2, STR_STATIC)) // Win8 IE10の場合
DATE：2013/5/16(Thu) 06:07

RE:ページ内の検索について　リキュール

Liners さん

msgbox(GetStr(id, 2, STR_STATIC))
で表示文字を取得することができました。
ありがとうございました。
DATE：2013/5/16(Thu) 20:41


ウィンドウ切替　かず
デスクトップ上に複数のアプリケーションを立上げ、各ウインドウをスライドショーのように一定間隔にて自動で切り替わるようなことは出来ますでしょうか？
DATE：2013/5/16(Thu) 19:19 No.4849


試しにショートカットで　さんたろ
fid="C:\Users\xxxxxx\AppData\Roaming\Microsoft\Windows\StartMenu\Programs\Windows Virtual PC\Windows XP Mode アプリケーション\vs.lnk"
exec(fid)
何も反応してくれないようですね・・・残念
DATE：2013/5/11(Sat) 13:23 No.4839

RE:試しにショートカットで　しゅん

解決済みのようですが、検索された場合に備えて、こちらにも回答させて頂きます。

ファイルシステムリダイレクタと多分引数のダブルクォート問題ですね。
手元の環境では、そのままでダメなことと、以下でokなことを確認しました。
・.lnkファイルの前に「c:\windows\sysnative\cmd /c <#dbl>」
・.lnkファイルの後に「<#dbl>」
DATE：2013/5/14(Tue) 12:08

RE:試しにショートカットで　しろまさ

// 楽なのでシェルの関連付け起動を使ってます。
// Program Files にnotepadのショートカットを作って実行。

Dim FilePath = "C:\Program Files\notepad.exe.lnk"
DEF_DLL ShellExecuteA(Long, String, String, String, String, Long) :Long :Shell32.dll // プロセス起動
ShellExecuteA(0, "open", FilePath, "", "", 1) // Exe起動 or 関連付起動
DATE：2013/5/15(Wed) 12:23 WEB


設定のスケジューラの選択を増やしたい/変えたい　初めまして
こんにちは、初めまして。
2つのUWSファイルを40分ごとと、1時間40分ごとに動かしたいのですが、
設定のスケジューラのドロップボックスを任意の時間の物に増やしたり
変更したりする事はできますでしょうか？
DATE：2013/5/15(Wed) 11:50 No.4847

RE:設定のスケジューラの選択を増やしたい/変えたい　初めまして

あ、すいません、式による設定で出来そうですね、大変失礼しました・・・
DATE：2013/5/15(Wed) 11:52


Ｅｘｃｅｌファイルを開くとファイル名が変わる　saitodon
Dim A
A = Createoleobj("Excel.Application")
A.Visible = True
A.Workbooks.add("C:\Tools\UWSC\Test")

を実行するとエクセルファイルは開かれるのですが、ファイル名の表示が”Test1”に変わってしまいＶＢＡが稼働しなくなります。
他のファイル、別ＰＣでも試しましたが結果は同じで、開いたファイル名に”1”が付加されます

対処方法がありましたら、ご教授願います。
DATE：2013/5/15(Wed) 10:02 No.4846

RE:Ｅｘｃｅｌファイルを開くとファイル名が変わる　Akura

WorkBooks.Openなら付きませんでした

Dim Excel = Createoleobj("Excel.Application")
Excel.Visible = True
Dim Workbook = Excel.WorkBooks.Open(FileName:= "C:\Tools\UWSC\Test.xls")
DATE：2013/5/15(Wed) 10:23

RE:Ｅｘｃｅｌファイルを開くとファイル名が変わる　リキュール

A.Workbooks.open("C:\Tools\UWSC\Test")
ではだめですか？
DATE：2013/5/15(Wed) 10:25

RE:Ｅｘｃｅｌファイルを開くとファイル名が変わる　saitodon

Akuraさん リキュールさん
早速のご回答ありがとうございます。

openで試したところ、うまくいきました。

ありがとうございました。

DATE：2013/5/15(Wed) 11:26


[次のページ]

　親記事合計：120件


　掲示板検索ツール　 UBTrek


Rental:大宇宙 お知らせ(12/10) Base:ACE