StarBasicまたはOOo Basicプログラミングに興味のある方、
もしくは学習中の方、知識共有の場にしましょう。
参考になる主なリンク
StarSuite 8 Basic プログラミングガイド
http://docs.sun.com/app/docs/doc/819-1332?l=ja
OpenOffice.org 推進サイト
http://ooosupport.good-day.net/ja/documents/faq/
OpenOffice.org日本ユーザー会翻訳プロジェクト BASIC HELP
http://openoffice-docj.sourceforge.jp/tr/translated/basic_help_frame.html
OpenOffice.org本家 API Project
http://api.openoffice.org/
ウィキブックス OpenOffice.org Basic
http://ja.wikibooks.org/wiki/OpenOffice.org_Basic
ウィキブックス OpenOffice.org Calc Basic
http://ja.wikibooks.org/wiki/OpenOffice.org_Calc_Basic
pukiwiki Plus!
http://hermione.s41.xrea.com/pukiwiki
他に追加情報があったら教えてください。
探検
【StarSuite Basic/OpenOffice.org Basic】
■ このスレッドは過去ログ倉庫に格納されています
2006/10/06(金) 20:04:48
348デフォルトの名無しさん
2008/11/26(水) 12:13:34 バイナリファイルからnull terminated stringを
読む方法はありますか?
OpenOffice.org 3.0/calc/OOo Basicです。
対象のファイルはバイナリファイル
(ゲーム提督の決断4のセーブデータ)であり
アドレス2192F(h)から
8b e3 98 5a 8e ae 8a cd 90 ed 00
と記録されています。(Shift-JISで「九六式艦戦」)
Dim Result as String
Get #1, Offset+1, Result
とすると「六式艦戦」から始まる長さ51807バイトの
文字列になってしまいます。
どうやら先頭2バイトを文字列長さと認識しており、
00を文字列終端と認識しません。
Input #1, Result
とすると「ヒ ̄リZホ?ハ?ミ?」という長さ10バイトの
文字化けした文字列になってしまいます。
null terminated stringをOOo Basicのstringとして
読み込む方法を教えてください。
読む方法はありますか?
OpenOffice.org 3.0/calc/OOo Basicです。
対象のファイルはバイナリファイル
(ゲーム提督の決断4のセーブデータ)であり
アドレス2192F(h)から
8b e3 98 5a 8e ae 8a cd 90 ed 00
と記録されています。(Shift-JISで「九六式艦戦」)
Dim Result as String
Get #1, Offset+1, Result
とすると「六式艦戦」から始まる長さ51807バイトの
文字列になってしまいます。
どうやら先頭2バイトを文字列長さと認識しており、
00を文字列終端と認識しません。
Input #1, Result
とすると「ヒ ̄リZホ?ハ?ミ?」という長さ10バイトの
文字化けした文字列になってしまいます。
null terminated stringをOOo Basicのstringとして
読み込む方法を教えてください。
349デフォルトの名無しさん
2008/11/26(水) 14:12:07 バイナリデータの取得自体はこのへん?
ttp://hermione.s41.xrea.com/pukiwiki/index.php?OOobbs%2F96
サイズの指定は手動でいいなら
Dim buf(10) As Byte ' 0〜10の11個
oInputStream.readBytes(buf(), 11)
こんな感じでできるんじゃないの。それをどうstringに変換するかは知らんけど。
ってそういう話じゃないのかな?
ttp://hermione.s41.xrea.com/pukiwiki/index.php?OOobbs%2F96
サイズの指定は手動でいいなら
Dim buf(10) As Byte ' 0〜10の11個
oInputStream.readBytes(buf(), 11)
こんな感じでできるんじゃないの。それをどうstringに変換するかは知らんけど。
ってそういう話じゃないのかな?
350348
2008/11/26(水) 14:29:26 リンク先が参考になりました。
ありがとうございます。
バイト型の配列で読みとれたら、後は文字列への変換ですね。
Shift-JIS→Unicode変換の方法がわかれば、
Chr関数はUnicode値→文字へ変換と組み合わせることで
解決できそうです。
ありがとうございます。
バイト型の配列で読みとれたら、後は文字列への変換ですね。
Shift-JIS→Unicode変換の方法がわかれば、
Chr関数はUnicode値→文字へ変換と組み合わせることで
解決できそうです。
351デフォルトの名無しさん
2008/11/26(水) 14:44:02 こういう基本的なドキュメントってどっかにまとまってるべきだよなあ
>>351に言い出しっぺの法則が適用されました
353デフォルトの名無しさん
2008/11/26(水) 14:54:39 いや、ドキュメント作るにしたって元ネタがSunの出してる全然不足だらけのドキュメントと
掲示板に散在するTIPS集しかないじゃん。まさかソースからドキュメント起こせとでも?
掲示板に散在するTIPS集しかないじゃん。まさかソースからドキュメント起こせとでも?
354デフォルトの名無しさん
2008/11/26(水) 15:11:14 やる気があるならまずは全然不足だらけのドキュメントと掲示板に散在するTIPS集の情報を一箇所にまとめてみれば?
355デフォルトの名無しさん
2008/11/26(水) 15:18:54 やる気があるなんて誰も言ってないけど。俺は自力で探す方法でなんとかしのいでるし。
まあVBAのならともかく、Calc Basic のドキュメントなんて書籍化しても100部くらいしか売れないだろうな。
まあVBAのならともかく、Calc Basic のドキュメントなんて書籍化しても100部くらいしか売れないだろうな。
356デフォルトの名無しさん
2008/11/26(水) 15:22:44 まあそうだろうね
やる気があるとは思っていないからあるならって仮定付きで言ったまでで
しかし書籍化なんて言葉が思い浮かぶだけでもびっくりだ
やる気があるとは思っていないからあるならって仮定付きで言ったまでで
しかし書籍化なんて言葉が思い浮かぶだけでもびっくりだ
357デフォルトの名無しさん
2008/11/26(水) 15:26:30 何をそんなにカリカリして食いついてくるのか理解不能だな
359デフォルトの名無しさん
2008/11/26(水) 15:33:08 何怒ってんだろう?OOo関係に文句いったらカチンとくるの?
360デフォルトの名無しさん
2008/11/26(水) 15:42:07 いやOOo使ってないし
単にあがってるスレだったのが理由
さがってればスレの存在自体知らなかった
一般的な突っ込みの仕方をしただけなんで
OOoのドキュメント環境の知識はないよ
単にあがってるスレだったのが理由
さがってればスレの存在自体知らなかった
一般的な突っ込みの仕方をしただけなんで
OOoのドキュメント環境の知識はないよ
361デフォルトの名無しさん
2008/11/26(水) 17:13:44 煽ってるつもりなんだろうか?
アホの考える事はわからんの〜
アホの考える事はわからんの〜
362デフォルトの名無しさん
2008/11/26(水) 21:56:25 VBA系はマじゃないからわんさかいるな・・・
363デフォルトの名無しさん
2008/11/27(木) 22:40:06 >>348
seek して TextInputStream を Shift_JIS エンコードに設定して
区切り文字に chr(0) 指定の readString で読むとか
8B E3 00 8B E3 98 5A 8E AE 8A CD 90 ED 00 8B E3
Sub readtysef
sURL = "file:///E:/usr/123"
oIN = CreateUnoService( _
"com.sun.star.ucb.SimpleFileAccess")._
openFileRead(sURL)
oTxtRead = CreateUnoService( _
"com.sun.star.io.TextInputStream" )
oTxtRead.setEncoding("Shift_JIS")
oTxtRead.setInputStream(oIn)
oTxtRead.skipBytes(3) ' from 8B
sRes = oTxtRead.readString(Array(chr(0)), True)
oIn.closeInput()
End Sub
seek して TextInputStream を Shift_JIS エンコードに設定して
区切り文字に chr(0) 指定の readString で読むとか
8B E3 00 8B E3 98 5A 8E AE 8A CD 90 ED 00 8B E3
Sub readtysef
sURL = "file:///E:/usr/123"
oIN = CreateUnoService( _
"com.sun.star.ucb.SimpleFileAccess")._
openFileRead(sURL)
oTxtRead = CreateUnoService( _
"com.sun.star.io.TextInputStream" )
oTxtRead.setEncoding("Shift_JIS")
oTxtRead.setInputStream(oIn)
oTxtRead.skipBytes(3) ' from 8B
sRes = oTxtRead.readString(Array(chr(0)), True)
oIn.closeInput()
End Sub
364デフォルトの名無しさん
2008/12/11(木) 16:47:11 マクロ編集のエディタが使い辛いのですが、エディタの機能を拡張したり、他のエディタと置き換えたり呼び出したりとか
そういうことはできませんか?
そういうことはできませんか?
365デフォルトの名無しさん
2008/12/18(木) 22:06:11 VBAで開発して、ある程度できたらOOoにコピペして調整。
366デフォルトの名無しさん
2008/12/24(水) 11:19:22Basice IDE 上でコピペしただけで、ダウンしてしまいます。。
何なんだろう。この使いがたさは。。
367さいき
2009/01/16(金) 19:16:56 base で何かを作りたいと思って 調べたことを書きました。
http://yumisaiki.blogspot.com/2009/01/open-office.html
でも、普通に今日の日付を標準で表示させるというような簡単なこともmacro書かないといけないみたいですが、
方法がどうしてもわかりません。
http://yumisaiki.blogspot.com/2009/01/open-office.html
でも、普通に今日の日付を標準で表示させるというような簡単なこともmacro書かないといけないみたいですが、
方法がどうしてもわかりません。
368さいき
2009/01/19(月) 02:27:18 自己レスで=す。今日、日付フィールドの属性にあるドロップダウンというのをはいにすると
カレンダーコントロールのような入力画面になることを発見しました。
これはなかなか無料とは思えない便利な機能です!
カレンダーコントロールのような入力画面になることを発見しました。
これはなかなか無料とは思えない便利な機能です!
369デフォルトの名無しさん
2009/01/20(火) 22:46:37 >>368
Basic、Baseについては、http://oooug.jp/faq/ でも多くの情報が得られます。
例えば、http://oooug.jp/faq/index.php?Faq%2FBase なんてどうでしょう。
Baseでつまづいた時の参考になります。
日付フィールドに関しては、紆余跼蹐があって、初期のころは当日の日付が
入力されていたようです。以下にそんなことがかかれています。
http://oooug.jp/faq/index.php?Faq/1/334
以下を見ると、〜.odbというBaseのサンプルもたくさん登録されています。
http://oooug.jp/faq/index.php?plugin=attach&pcmd=list
Basic、Baseについては、http://oooug.jp/faq/ でも多くの情報が得られます。
例えば、http://oooug.jp/faq/index.php?Faq%2FBase なんてどうでしょう。
Baseでつまづいた時の参考になります。
日付フィールドに関しては、紆余跼蹐があって、初期のころは当日の日付が
入力されていたようです。以下にそんなことがかかれています。
http://oooug.jp/faq/index.php?Faq/1/334
以下を見ると、〜.odbというBaseのサンプルもたくさん登録されています。
http://oooug.jp/faq/index.php?plugin=attach&pcmd=list
370ハンカチ仮面
2009/03/04(水) 00:55:44 情報ありがとう
371デフォルトの名無しさん
2009/03/14(土) 11:27:02 そうか
372デフォルトの名無しさん
2009/03/20(金) 21:26:07 >>201
オヤスミ…
<⌒/ヽ-、___
/<_/____/
 ̄ ̄ ̄ ̄ ̄ ̄ ̄
オヤスミ…
<⌒/ヽ-、___
/<_/____/
 ̄ ̄ ̄ ̄ ̄ ̄ ̄
373デフォルトの名無しさん
2009/04/15(水) 23:18:02 そうか
374デフォルトの名無しさん
2009/04/20(月) 03:25:02 スレ違い
375デフォルトの名無しさん
2009/05/11(月) 10:57:31 補完機能が付くのはいつくらいなんでしょうか?・・・・
376デフォルトの名無しさん
2009/05/20(水) 20:52:16 >>375
何の?
何の?
377デフォルトの名無しさん
2009/06/05(金) 11:21:23 OpenOfficeのGUIからはエクスポート機能を使ってPDFや画像形式でファイルを保存できますが、
コマンドラインからは同様の機能はすぐに使えるんでしょうか?
ググってみたんですが、macroを使って変換するのは見つけたんですが、機能として持っているのなら
macro使わない方法もあるかと思って質問してみました。
あと、unoconvを使ってみたんですが、これはOpenOfficeをサーバとして起動して何かを渡して
いるようなので、そういうことができるならmacroなしのコマンドラインからという手段がありそうですよね?
コマンドラインからは同様の機能はすぐに使えるんでしょうか?
ググってみたんですが、macroを使って変換するのは見つけたんですが、機能として持っているのなら
macro使わない方法もあるかと思って質問してみました。
あと、unoconvを使ってみたんですが、これはOpenOfficeをサーバとして起動して何かを渡して
いるようなので、そういうことができるならmacroなしのコマンドラインからという手段がありそうですよね?
378デフォルトの名無しさん
2009/06/13(土) 13:40:22 writerで外字を使おうとしたら文字化けしてしまう。
StarSuiteでは外字使えないんでしょうか?
windowsはsp3、IMEを使ってます。
StarSuiteでは外字使えないんでしょうか?
windowsはsp3、IMEを使ってます。
379デフォルトの名無しさん
2009/06/21(日) 17:49:09380デフォルトの名無しさん
2009/06/23(火) 06:48:32 OpenOffice3.1.0を使用しています.
クイック起動はオフにしています.
DelphiからOpenOffice Calcを使ってxlsファイルを読み込む処理をしています.
http://www.clubdelphi.com/trucos/index.php?id=428 ここを参考に作成しました.
ClassID:=ProgIDToClassID('com.sun.star.ServiceManager');
h:=CoCreateInstance(ClassID, nil, CLSCTX_LOCAL_SERVER, IDispatch, id);
とした時点で、soffice.bin/soffice.exeという2個のプロセスが生成されます.
その後、読み込み処理を終了して、
ワークブックのクローズ、 objDocument.Close(True); を実行した時点で、
OpenOffice Caleは表示を終了し、画面からは消えます.
しかし、最終的に TWorkbook.Destroyを実行しても、
soffice.bin/soffice.exeという2個のプロセスが消えません.
CoCreateInstanceの後始末が必要なのかなと思って、
ServiceManager.Release; としたら、サポートしていないと例外が発生しました(objServiceManager := id;).
なにか、OpenOfficeを終了させるというコマンドを投げないといけないのでしょうか (ExcelのOleFunction("Quit");の様な)
ぐぐってみても、OpenOffice Basicで終了コマンドというようなものが見つかりませんでした.
soffice.bin/soffice.exeという2個のプロセスが残らないようにする方法を教えてください.
よろしくお願いします.
クイック起動はオフにしています.
DelphiからOpenOffice Calcを使ってxlsファイルを読み込む処理をしています.
http://www.clubdelphi.com/trucos/index.php?id=428 ここを参考に作成しました.
ClassID:=ProgIDToClassID('com.sun.star.ServiceManager');
h:=CoCreateInstance(ClassID, nil, CLSCTX_LOCAL_SERVER, IDispatch, id);
とした時点で、soffice.bin/soffice.exeという2個のプロセスが生成されます.
その後、読み込み処理を終了して、
ワークブックのクローズ、 objDocument.Close(True); を実行した時点で、
OpenOffice Caleは表示を終了し、画面からは消えます.
しかし、最終的に TWorkbook.Destroyを実行しても、
soffice.bin/soffice.exeという2個のプロセスが消えません.
CoCreateInstanceの後始末が必要なのかなと思って、
ServiceManager.Release; としたら、サポートしていないと例外が発生しました(objServiceManager := id;).
なにか、OpenOfficeを終了させるというコマンドを投げないといけないのでしょうか (ExcelのOleFunction("Quit");の様な)
ぐぐってみても、OpenOffice Basicで終了コマンドというようなものが見つかりませんでした.
soffice.bin/soffice.exeという2個のプロセスが残らないようにする方法を教えてください.
よろしくお願いします.
381デフォルトの名無しさん
2009/06/23(火) 13:58:54 >>380
終了させるには com.sun.star.frame.Desktop サービスから
css.frame.XDesktop インターフェースの terminate メソッド
普通は最後のドキュメントを閉じれば終了するはずなんだけど・・・
終了させるには com.sun.star.frame.Desktop サービスから
css.frame.XDesktop インターフェースの terminate メソッド
普通は最後のドキュメントを閉じれば終了するはずなんだけど・・・
383デフォルトの名無しさん
2009/07/08(水) 15:08:41 access2003のファイルをBaseでは開くにはどういう操作をしたらいいのでしょう?
ExcelファイルをCalcで開くみたいには簡単にいきません。
どなたか教えてください。
ExcelファイルをCalcで開くみたいには簡単にいきません。
どなたか教えてください。
384デフォルトの名無しさん
2009/07/17(金) 01:30:31 ここプログラミング掲示板のOpenOffice.orgマクロ言語に関するスレッドなので、
ビジネスソフト掲示板あたりのOpenOffice.orgに関する総合スレッドで質問なさったほうが
返答を得やすいと思います。
ビジネスソフト掲示板あたりのOpenOffice.orgに関する総合スレッドで質問なさったほうが
返答を得やすいと思います。
自動焼人 ★ = 自動保守 ◆KAWORUKOFI = 自動保守#K9K?_D[L
名言集 その4
『俺、100人規模の集団サイバーテロの主犯だったこともあるんだぜ』
http://yutori7.2ch.net/test/read.cgi/news4vip/1249830540/ のID:PVAf+dux0 = 自動焼人 ★
> 965 :以下、名無しにかわりましてVIPがお送りします [sage] :2009/08/10(月) 00:02:09.35 ID:PVAf+dux0
> まぁ何だ。
> 俺の過去の経歴に比べたら、割れ厨なんて鼻くそレベルなんだけどなw
> 100人規模の集団サイバーテロの主犯とか、いろいろとな。
----------------------------------------------
この自動焼人 ★メールマガジンの配信停止をご希望される方は
http://qb5.2ch.net/test/read.cgi/sec2chd/1250169591/
にて自動焼人 ★までご連絡ください
名言集 その4
『俺、100人規模の集団サイバーテロの主犯だったこともあるんだぜ』
http://yutori7.2ch.net/test/read.cgi/news4vip/1249830540/ のID:PVAf+dux0 = 自動焼人 ★
> 965 :以下、名無しにかわりましてVIPがお送りします [sage] :2009/08/10(月) 00:02:09.35 ID:PVAf+dux0
> まぁ何だ。
> 俺の過去の経歴に比べたら、割れ厨なんて鼻くそレベルなんだけどなw
> 100人規模の集団サイバーテロの主犯とか、いろいろとな。
----------------------------------------------
この自動焼人 ★メールマガジンの配信停止をご希望される方は
http://qb5.2ch.net/test/read.cgi/sec2chd/1250169591/
にて自動焼人 ★までご連絡ください
自動焼人 ★ = 自動保守 ◆KAWORUKOFI = 自動保守#K9K?_D[L
名言集 その2
『お前が規制系キャップ取れるか審査してやるよ』
http://yutori7.2ch.net/test/read.cgi/news4vip/1249830540/ ID:PVAf+dux0 = 自動焼人 ★
> 36 :以下、名無しにかわりましてVIPがお送りします [sage] :2009/08/10(月) 00:31:30.02 ID:PVAf+dux0
> >>33
> キャップとコテハンの違いは何?
> 46 :以下、名無しにかわりましてVIPがお送りします [sage] :2009/08/10(月) 00:38:05.34 ID:PVAf+dux0
> >>45
> その回答では落ちるなw
> 答えは教えないがw
> 50 :以下、名無しにかわりましてVIPがお送りします [sage] :2009/08/10(月) 00:41:29.96 ID:PVAf+dux0
> Q.キャップとコテハンの違いは何?
> A.2ちゃんねるのボランティアの登録制度
> それがお前の答えかw
> 52 :以下、名無しにかわりましてVIPがお送りします [sage] :2009/08/10(月) 00:43:10.06 ID:PVAf+dux0
> まぁ、どうせ正解が出るわけもないし、次の問題。
> 君が思う面白いスレはどんなの?
----------------------------------------------
この自動焼人 ★メールマガジンの配信停止をご希望される方は
http://qb5.2ch.net/test/read.cgi/sec2chd/1250169591/
にて自動焼人 ★までご連絡ください
名言集 その2
『お前が規制系キャップ取れるか審査してやるよ』
http://yutori7.2ch.net/test/read.cgi/news4vip/1249830540/ ID:PVAf+dux0 = 自動焼人 ★
> 36 :以下、名無しにかわりましてVIPがお送りします [sage] :2009/08/10(月) 00:31:30.02 ID:PVAf+dux0
> >>33
> キャップとコテハンの違いは何?
> 46 :以下、名無しにかわりましてVIPがお送りします [sage] :2009/08/10(月) 00:38:05.34 ID:PVAf+dux0
> >>45
> その回答では落ちるなw
> 答えは教えないがw
> 50 :以下、名無しにかわりましてVIPがお送りします [sage] :2009/08/10(月) 00:41:29.96 ID:PVAf+dux0
> Q.キャップとコテハンの違いは何?
> A.2ちゃんねるのボランティアの登録制度
> それがお前の答えかw
> 52 :以下、名無しにかわりましてVIPがお送りします [sage] :2009/08/10(月) 00:43:10.06 ID:PVAf+dux0
> まぁ、どうせ正解が出るわけもないし、次の問題。
> 君が思う面白いスレはどんなの?
----------------------------------------------
この自動焼人 ★メールマガジンの配信停止をご希望される方は
http://qb5.2ch.net/test/read.cgi/sec2chd/1250169591/
にて自動焼人 ★までご連絡ください
387デフォルトの名無しさん
2009/09/03(木) 10:46:46 BASIC繁栄時代があったらしい
388デフォルトの名無しさん
2009/09/03(木) 12:49:40 現在のcライクインタープリタなbasicと、
前世紀に栄えていたbasicとは、実は別言語である
という説を唱えてみる
前世紀に栄えていたbasicとは、実は別言語である
という説を唱えてみる
389デフォルトの名無しさん
2009/09/16(水) 23:26:07390デフォルトの名無しさん
2009/09/26(土) 21:17:35 >>389 w(゜o゜)wワオ!
391デフォルトの名無しさん
2009/10/10(土) 16:05:40 OpenOfficeマクロプログラミング
宍戸輝光 工学社 09/10 \1,890
出たね。
宍戸輝光 工学社 09/10 \1,890
出たね。
392デフォルトの名無しさん
2009/10/18(日) 14:03:53 昨日からbaseいじっております。以前も(2.0)触ってみましたが、挫折しました。
M社の2003サポート切れの心配やバージョン毎の購入にウンザリしており、今回は挫折したくありません。
オフィスソフト自体は自宅で必要ではないのに会社の為に自分も購入している方も多いと思います。
一企業が一企業のソフトに業務を依存しなくてはならない現状が非常に間違った方向だとも思いますし、、。
現在basicの書き場所がBASEでわからなく、、、探していて辿りつきました。
道は遠いですか?
M社の2003サポート切れの心配やバージョン毎の購入にウンザリしており、今回は挫折したくありません。
オフィスソフト自体は自宅で必要ではないのに会社の為に自分も購入している方も多いと思います。
一企業が一企業のソフトに業務を依存しなくてはならない現状が非常に間違った方向だとも思いますし、、。
現在basicの書き場所がBASEでわからなく、、、探していて辿りつきました。
道は遠いですか?
393デフォルトの名無しさん
2009/10/19(月) 14:13:11 残念ながらここは過疎っているので、ビジネスsoft板やソフトウェア板などの
OpenOffice一般を扱うスレッドでマクロの質問等もなさると反応がいいと思います。
マクロを中心に扱った日本語書籍がやっと世に出た段階なのでこれからですね。
OpenOffice一般を扱うスレッドでマクロの質問等もなさると反応がいいと思います。
マクロを中心に扱った日本語書籍がやっと世に出た段階なのでこれからですね。
394デフォルトの名無しさん
2009/11/05(木) 23:10:50 >391 さんが紹介された本、誰か買って読んだ方いらっしゃいますか?
紀伊国屋書店のページ↓は見てみましたが、どんなもんなんでしょ。
http://bookweb.kinokuniya.co.jp/guest/cgi-bin/wshosea.cgi?KEYWORD=%82%6E%82%90%82%85%82%8E%82%6E%82%86%82%86%82%89%82%83%82%85%83%7D%83%4E%83%8D%83%76%83%8D%83%4F%83%89%83~%83%93%83%4F
紀伊国屋書店のページ↓は見てみましたが、どんなもんなんでしょ。
http://bookweb.kinokuniya.co.jp/guest/cgi-bin/wshosea.cgi?KEYWORD=%82%6E%82%90%82%85%82%8E%82%6E%82%86%82%86%82%89%82%83%82%85%83%7D%83%4E%83%8D%83%76%83%8D%83%4F%83%89%83~%83%93%83%4F
395デフォルトの名無しさん
2009/11/09(月) 21:56:59 オプソは好きだが、M$オフィスの方がまだまだずっと出来がいい
396デフォルトの名無しさん
2009/11/22(日) 20:36:49 プログラミング環境としては悪くないね、OOo
397デフォルトの名無しさん
2009/11/22(日) 21:17:09 「初心者向けの」プログラミング環境ってことなら、ドキュメントがろくに揃ってないことで却下だなあ。
無料ってことをウリにするなら、Visual Studio の Express Edition には適わないし
.NET限定だけど、売りもののProfessional Editionへのステップアップも容易
無料ってことをウリにするなら、Visual Studio の Express Edition には適わないし
.NET限定だけど、売りもののProfessional Editionへのステップアップも容易
398デフォルトの名無しさん
2009/11/28(土) 19:35:58 「プログラミング環境」って?
コード補完や文法ミスの指摘をしてくれるIDEがあるってこと?
へぇ、知らんかった。ずいぶん進化したもんだね。
コード補完や文法ミスの指摘をしてくれるIDEがあるってこと?
へぇ、知らんかった。ずいぶん進化したもんだね。
399デフォルトの名無しさん
2009/12/05(土) 08:08:59400デフォルトの名無しさん
2009/12/05(土) 17:01:30 SDK関連の記載って例えばどういうの?
401デフォルトの名無しさん
2009/12/09(水) 22:35:32 ttp://hermione.s41.xrea.com/pukiwiki/
402デフォルトの名無しさん
2009/12/09(水) 23:00:57 >>401
なんかリンクが貼ってあるばかりでイマイチつかみどころのない説明ばかりだな
なんかリンクが貼ってあるばかりでイマイチつかみどころのない説明ばかりだな
403デフォルトの名無しさん
2009/12/09(水) 23:02:05 そもそも >>1 にあるやん
404デフォルトの名無しさん
2009/12/09(水) 23:12:58 ここも役に立つよ。
ttp://blog.livedoor.jp/addinbox/
ttp://blog.livedoor.jp/addinbox/
405デフォルトの名無しさん
2010/01/13(水) 11:10:06 >>394
初心者がOooのBasicを始めるきっかけにするには良い本と思う。
ネットの情報は辞書的なページが多いので、簡単なチュートリアルがあるので助かった。
ダイアログの作り方とか。
ただ内容的にCalcに偏ってるし、標準関数とか全部記載していないので、
本に書いてあること以上のことをしようとするとネットに頼らざるを得ない。
どの言語の本でもそうだけど1冊だけで全て網羅するのは無理。
漏れ的には買って損はなかったよ。
初心者がOooのBasicを始めるきっかけにするには良い本と思う。
ネットの情報は辞書的なページが多いので、簡単なチュートリアルがあるので助かった。
ダイアログの作り方とか。
ただ内容的にCalcに偏ってるし、標準関数とか全部記載していないので、
本に書いてあること以上のことをしようとするとネットに頼らざるを得ない。
どの言語の本でもそうだけど1冊だけで全て網羅するのは無理。
漏れ的には買って損はなかったよ。
406デフォルトの名無しさん
2010/01/13(水) 12:11:33 本なんだからそれでいいんじゃないの
407デフォルトの名無しさん
2010/01/13(水) 12:24:32 >>405
なんでPythonにしなかったの?
なんでPythonにしなかったの?
408デフォルトの名無しさん
2010/01/13(水) 12:58:49 >>407 pythonならdteよりwebの方に良い情報がころがってるんじゃまいか?
409デフォルトの名無しさん
2010/01/13(水) 12:59:17 OOo Basic で配列操作とか自前でやるの疲れるよな
410デフォルトの名無しさん
2010/01/13(水) 13:34:08 PythonよりBasicの本の方が売れるでしょ
411デフォルトの名無しさん
2010/01/14(木) 02:00:25 規制されてなかったらなんかマクロ書くわ
412デフォルトの名無しさん
2010/01/14(木) 22:19:57 次スレは「OpenOffice.org マクロ」とでもして、言語を問わずに。
413デフォルトの名無しさん
2010/01/15(金) 00:06:23 まだ半分以上スレ残りあるんだが
414デフォルトの名無しさん
2010/01/15(金) 07:47:58 まさか新スレ立てるなよ
415デフォルトの名無しさん
2010/01/16(土) 00:24:08 次すれになるようにマクロ書くか
Sub RepositioningBookmaks
oDoc = ThisComponent
oText = oDoc.getText()
oBookmarks = oDoc.getBookmarks()
For i = 0 to oBookmarks.getCount() - 1 step 1
oMark = oBookmarks.getByIndex(i)
oAnchor = oMark.getAnchor()
If Len(oAnchor.getString()) > 1 Then
sName = oMark.getName()
oStartRange = oAnchor.getStart()
oNewMark = oDoc.createInstance("com.sun.star.text.Bookmark")
oNewMark.setName(sName)
oText.removeTextContent(oMark)
oText.insertTextContent(oStartRange, oNewMark, False)
End If
Next
End Sub
Sub RepositioningBookmaks
oDoc = ThisComponent
oText = oDoc.getText()
oBookmarks = oDoc.getBookmarks()
For i = 0 to oBookmarks.getCount() - 1 step 1
oMark = oBookmarks.getByIndex(i)
oAnchor = oMark.getAnchor()
If Len(oAnchor.getString()) > 1 Then
sName = oMark.getName()
oStartRange = oAnchor.getStart()
oNewMark = oDoc.createInstance("com.sun.star.text.Bookmark")
oNewMark.setName(sName)
oText.removeTextContent(oMark)
oText.insertTextContent(oStartRange, oNewMark, False)
End If
Next
End Sub
416デフォルトの名無しさん
2010/01/16(土) 23:07:07 ユーザー定義のツールバー探すもの
Sub find_toolbar
sUIName = "Test1"
oFound = nothing
oLM = ThisComponent.getCurrentController().getFrame().LayoutManager
oElements = oLM.getElements()
For i = 0 To UBound(oElements) step 1
oItem = oElements(i)
If Mid(oItem.ResourceURL, 1, 40) = "private:resource/toolbar/custom_toolbar_" Then
If oItem.getSettings(False).UIName = sUIName Then
oFound = oItem
Exit For
End If
End If
Next
If NOT IsNull(oFound) Then
' do something
msgbox "found"
End If
End Sub
Sub find_toolbar
sUIName = "Test1"
oFound = nothing
oLM = ThisComponent.getCurrentController().getFrame().LayoutManager
oElements = oLM.getElements()
For i = 0 To UBound(oElements) step 1
oItem = oElements(i)
If Mid(oItem.ResourceURL, 1, 40) = "private:resource/toolbar/custom_toolbar_" Then
If oItem.getSettings(False).UIName = sUIName Then
oFound = oItem
Exit For
End If
End If
Next
If NOT IsNull(oFound) Then
' do something
msgbox "found"
End If
End Sub
417デフォルトの名無しさん
2010/01/18(月) 17:31:36 文字列検索ができません。
*や%は使えるんですか?
*や%は使えるんですか?
418デフォルトの名無しさん
2010/01/18(月) 17:43:31 InStr じゃ無理だな
419デフォルトの名無しさん
2010/01/18(月) 19:00:34 ありがとうございます。
解決しました。
解決しました。
420デフォルトの名無しさん
2010/01/19(火) 20:41:01 >>415l-416 乙。どんどん頼みます。勉強になります。感謝します。
421デフォルトの名無しさん
2010/01/25(月) 00:51:54 規制が解除されたからまた埋めようかと思ったけど書くことが思いつかん
422デフォルトの名無しさん
2010/01/25(月) 17:45:13 Writerで文字の段落と挿入された画像のURLをテキストデータとして
出力する場合に文字の段落はプログラミングガイドにあるように
supportsService("com.sun.star.text.Paragraph")
で判断できるのですが、挿入された画像は
supportsService("com.sun.star.text.TextGraphicObject")
では判断できないのですが、使用法が違うのでしょうか?
それともcom.sun.star.graphicかcom.sun.star.drawingを使うのでしょうか?
あとハイパーリンクへのアクセスの仕方も良く分からない(T_T)
ヒント等があればお願いします。
出力する場合に文字の段落はプログラミングガイドにあるように
supportsService("com.sun.star.text.Paragraph")
で判断できるのですが、挿入された画像は
supportsService("com.sun.star.text.TextGraphicObject")
では判断できないのですが、使用法が違うのでしょうか?
それともcom.sun.star.graphicかcom.sun.star.drawingを使うのでしょうか?
あとハイパーリンクへのアクセスの仕方も良く分からない(T_T)
ヒント等があればお願いします。
423デフォルトの名無しさん
2010/01/25(月) 20:42:16 段落から Contents Enumeration すると画像に相当するもんが見つからないから・・・
画像が埋め込みじゃなければ GraphicURL プロパティ
画像が埋め込みじゃなければ GraphicURL プロパティ
424デフォルトの名無しさん
2010/01/26(火) 17:03:09 >>423
どうもです。
画像は埋め込みでないので画像のURLの情報を得ようとすると
Doc = ThisComponent
OG = Doc.getGraphicObjects
msgbox OG(0).GraphicURL
で画像のURLの情報にアクセすることは分かるのですが、
Writerに記載した順序でテキストデータに出力する場合は、
EnumerationのWhileループではできなさそうですね(^^;
APIのWikiは英語だしよく分からない(T_T
ググるとカーソル位置に画像を挿入するサンプルコードは見つかるんですけどねぇ
どうもです。
画像は埋め込みでないので画像のURLの情報を得ようとすると
Doc = ThisComponent
OG = Doc.getGraphicObjects
msgbox OG(0).GraphicURL
で画像のURLの情報にアクセすることは分かるのですが、
Writerに記載した順序でテキストデータに出力する場合は、
EnumerationのWhileループではできなさそうですね(^^;
APIのWikiは英語だしよく分からない(T_T
ググるとカーソル位置に画像を挿入するサンプルコードは見つかるんですけどねぇ
425デフォルトの名無しさん
2010/01/26(火) 17:50:42 css.text.XTextRangeCompare インターフェース使って画像の Anchor と段落の位置関係は分かるけどな
426デフォルトの名無しさん
2010/01/29(金) 10:59:56427デフォルトの名無しさん
2010/02/14(日) 13:48:06 OpenOfficd.org3,2 起動時間がすごく短縮されている。
これは有り難い。
OracleによるSun買収でどうなるか心配していたけど、
今回は、まじめにやってくれたみたいね。
これは有り難い。
OracleによるSun買収でどうなるか心配していたけど、
今回は、まじめにやってくれたみたいね。
428ビギナー
2010/02/17(水) 10:35:48 こんにちは、プログラミング未経験のものです。
株式投資で一銘柄の過去の株価データを使って色々な条件で
売買したらどのような結果になるかのプログラムをつくりたく、
ooo basic でもこのようなことができますでしょうか?
具体的には、一銘柄について
日付、株価(始値、高値、安値、終値)をデータとし
何年何日に何円で株を何単位買い、買値より10円高い売り注文
株価が10円下がるごとに買い増し、買値より10円高い売り注文
と、詳細は更に検討しています。
それで結果、どのような売買記録でどのぐらいの収益になるか
の様なものです。
こんなこともできますでしょうか?
データについては、オープンオフィスのCALCにインプット
済みです。
些細なことでも何でも構いませんので、アドバイスよろしく
お願いいたします。
株式投資で一銘柄の過去の株価データを使って色々な条件で
売買したらどのような結果になるかのプログラムをつくりたく、
ooo basic でもこのようなことができますでしょうか?
具体的には、一銘柄について
日付、株価(始値、高値、安値、終値)をデータとし
何年何日に何円で株を何単位買い、買値より10円高い売り注文
株価が10円下がるごとに買い増し、買値より10円高い売り注文
と、詳細は更に検討しています。
それで結果、どのような売買記録でどのぐらいの収益になるか
の様なものです。
こんなこともできますでしょうか?
データについては、オープンオフィスのCALCにインプット
済みです。
些細なことでも何でも構いませんので、アドバイスよろしく
お願いいたします。
429デフォルトの名無しさん
2010/02/17(水) 13:52:37430ビギナー
2010/02/17(水) 15:38:25431ビギナー
2010/02/18(木) 12:44:35 オープンオフィスのCALCに以下の様なデータがあるとします。
1、指定した日で指定した株価で1000株買います。
(売買は全部1000株なので考慮必要なしとします)
買い注文は5円下がるごとに出している。
(何かの売りが成立するまで)
2、これを買った翌日以降の注文で売り注文(買値+5円)をだす。
買ったものは全て翌日以降買い値+5円で売り注文を出す。
売ったら売値−5円でまた買い注文を出す。買い注文は5円下がる
ごとに出している。
この場合の取引結果を出すマクロはどのようになりますでしょうか。
日付 始値 高値 安値 終値
20010105 221 224 219 220
20010106 218 223 215 222
20010107 224 231 223 223
20010108 220 221 216 217
20010109 215 216 210 213
例、20010105に220円で買いとします。
()は参考です。
結果 20010105 220円買い成立(20010106以降225円売り注文)
20010106 215円買い成立(20010107以降220円売り注文)
20010107 224円売り成立(買値215円分)
225円売り成立(買値220円分)
(一番高い売値225円から5円安い220円で翌日以降買い注文、5円下
がるごとに買い注文もだしている)
20010108 220円買い成立(翌日以降225円売り注文)
20010109 215円買い成立(翌日以降225円売り注文)
210円買い成立(翌日以降225円売り注文)
1、指定した日で指定した株価で1000株買います。
(売買は全部1000株なので考慮必要なしとします)
買い注文は5円下がるごとに出している。
(何かの売りが成立するまで)
2、これを買った翌日以降の注文で売り注文(買値+5円)をだす。
買ったものは全て翌日以降買い値+5円で売り注文を出す。
売ったら売値−5円でまた買い注文を出す。買い注文は5円下がる
ごとに出している。
この場合の取引結果を出すマクロはどのようになりますでしょうか。
日付 始値 高値 安値 終値
20010105 221 224 219 220
20010106 218 223 215 222
20010107 224 231 223 223
20010108 220 221 216 217
20010109 215 216 210 213
例、20010105に220円で買いとします。
()は参考です。
結果 20010105 220円買い成立(20010106以降225円売り注文)
20010106 215円買い成立(20010107以降220円売り注文)
20010107 224円売り成立(買値215円分)
225円売り成立(買値220円分)
(一番高い売値225円から5円安い220円で翌日以降買い注文、5円下
がるごとに買い注文もだしている)
20010108 220円買い成立(翌日以降225円売り注文)
20010109 215円買い成立(翌日以降225円売り注文)
210円買い成立(翌日以降225円売り注文)
432デフォルトの名無しさん
2010/02/18(木) 12:46:11 multi
433@yuo
2010/02/28(日) 15:18:35 初心者です。
マクロでcalcファイルを開くのにはどうしたらいいですか?
以下にふぁいるがあります。
C:\My Documents\学習\test.ods
マクロでcalcファイルを開くのにはどうしたらいいですか?
以下にふぁいるがあります。
C:\My Documents\学習\test.ods
434デフォルトの名無しさん
2010/02/28(日) 17:53:53 Sub hoge
sURL = ConvertToURL("C:\My Documents\学習\test.ods")
oDoc = StarDesktop.loadComponentFromURL(sURL, "_blank", 0, Array())
End Sub
sURL = ConvertToURL("C:\My Documents\学習\test.ods")
oDoc = StarDesktop.loadComponentFromURL(sURL, "_blank", 0, Array())
End Sub
435@yuo
2010/02/28(日) 18:47:26436mu-mu
2010/03/11(木) 05:22:57 calcについて質問です。
マクロから日付を入力したいのですがどうすればよいのか分かりません。
Cell.String = "2010/03/11"
とすると表示は「2010/03/11」ですが、数式入力ボックスでは「'2010/03/11」
になってしまい日付として認識してくれません。
教えてえろい人orz
マクロから日付を入力したいのですがどうすればよいのか分かりません。
Cell.String = "2010/03/11"
とすると表示は「2010/03/11」ですが、数式入力ボックスでは「'2010/03/11」
になってしまい日付として認識してくれません。
教えてえろい人orz
437デフォルトの名無しさん
2010/03/11(木) 09:47:52 Cell.formula = "2010/3/11"
Cell.numberformat = 36
Cell.numberformat = 36
438デフォルトの名無しさん
2010/03/11(木) 10:15:22 >>436
Cell.Value = DateSerial (2010, 3, 1)
DateSerial関数のパラメータは年、月、日の順。
そのままだと謎い数字が出てくるだけなので、
セルの書式を、日付のものに変更して。
Cell.Value = DateSerial (2010, 3, 1)
DateSerial関数のパラメータは年、月、日の順。
そのままだと謎い数字が出てくるだけなので、
セルの書式を、日付のものに変更して。
440デフォルトの名無しさん
2010/03/12(金) 14:51:03 >>436
日付のデータって、見た目は YYYY/MM/DD だけど、格納されてるのは
OpenOffice.org が対応してる年月時間を順列にした整数なの。
0〜9999999999999999999999 みたいな数で 1100年1月1日から2100年の12月31日までを管理するって感じ。
日付のデータって、見た目は YYYY/MM/DD だけど、格納されてるのは
OpenOffice.org が対応してる年月時間を順列にした整数なの。
0〜9999999999999999999999 みたいな数で 1100年1月1日から2100年の12月31日までを管理するって感じ。
441デフォルトの名無しさん
2010/03/20(土) 15:12:57 =CONCATENATE(A1:B2)
という風に範囲指定で文字列を連結したいのですが、できますか?
という風に範囲指定で文字列を連結したいのですが、できますか?
442デフォルトの名無しさん
2010/03/21(日) 00:15:24 マクロ関数定義するならこんな感じかな
Function ConcatRange(oData) As String
Dim sRet As String
For i = 1 to UBound(oData, 1) step 1
For j = 1 to UBound(oData, 2) step 1
sRet = sRet & CStr(oData(i, j))
Next
next
ConcatRange = sRet
end Function
Function ConcatRange(oData) As String
Dim sRet As String
For i = 1 to UBound(oData, 1) step 1
For j = 1 to UBound(oData, 2) step 1
sRet = sRet & CStr(oData(i, j))
Next
next
ConcatRange = sRet
end Function
443デフォルトの名無しさん
2010/03/21(日) 00:34:34 >>442
できました!ありがとうございます
できました!ありがとうございます
444デフォルトの名無しさん
2010/05/24(月) 21:18:33 OOoBasicではVBAのようにクラスモジュールは作れないんでしょうか?
445デフォルトの名無しさん
2010/05/24(月) 21:47:31 yes, you can
446デフォルトの名無しさん
2010/05/24(月) 21:51:14447デフォルトの名無しさん
2010/05/25(火) 17:16:32 >>446
というかできない
というかできない
448デフォルトの名無しさん
2010/06/16(水) 00:14:31 クラスモジュールにしたいコードの先頭に
option vbaSupport 1
option compatible
option classModule
をつければクラスモジュールとして使えます
ただこの3つの違いがわかりません
誰か知ってる人いませんか
option vbaSupport 1
option compatible
option classModule
をつければクラスモジュールとして使えます
ただこの3つの違いがわかりません
誰か知ってる人いませんか
■ このスレッドは過去ログ倉庫に格納されています
ニュース
- 「おこめ券は米以外の食品も買える。効果的な活用を」 地元で農水相 [山形県] [少考さん★]
- 【速報】「女芸人No.1決定戦 THE W」9代目女王にニッチェ! 7年ぶり3度目で悲願の優勝 [牛丼★]
- 【芸能】『女芸人No.1決定戦THE W』 粗品が最後にバッサリ「優勝賞金1000万円にしてはレベル低い大会」 [冬月記者★]
- 今年の流行語大賞 『働いて働いて働いてまいります』が受賞で不快感… 過労自殺の遺族らが会見「家族にむち打つような行為だ」 [冬月記者★]
- 【東京】「家族で話題にして」 “世田谷一家殺害から25年 警視庁が呼びかけ [煮卵★]
- 【広島】ペルー女性の国保加入を誤って認め、福山市が医療費484万円を肩代わりするミス…入院して手術を受ける [ぐれ★]
