【StarSuite Basic/OpenOffice.org Basic】
■ このスレッドは過去ログ倉庫に格納されています
0001ハンカチ仮面
2006/10/06(金) 20:04:48もしくは学習中の方、知識共有の場にしましょう。
参考になる主なリンク
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
他に追加情報があったら教えてください。
0404デフォルトの名無しさん
2009/12/09(水) 23:12:58ttp://blog.livedoor.jp/addinbox/
0405デフォルトの名無しさん
2010/01/13(水) 11:10:06初心者がOooのBasicを始めるきっかけにするには良い本と思う。
ネットの情報は辞書的なページが多いので、簡単なチュートリアルがあるので助かった。
ダイアログの作り方とか。
ただ内容的にCalｃに偏ってるし、標準関数とか全部記載していないので、
本に書いてあること以上のことをしようとするとネットに頼らざるを得ない。
どの言語の本でもそうだけど1冊だけで全て網羅するのは無理。
漏れ的には買って損はなかったよ。
0406デフォルトの名無しさん
2010/01/13(水) 12:11:330407デフォルトの名無しさん
2010/01/13(水) 12:24:32なんでPythonにしなかったの？
0408デフォルトの名無しさん
2010/01/13(水) 12:58:490409デフォルトの名無しさん
2010/01/13(水) 12:59:170410デフォルトの名無しさん
2010/01/13(水) 13:34:080411デフォルトの名無しさん
2010/01/14(木) 02:00:250412デフォルトの名無しさん
2010/01/14(木) 22:19:570413デフォルトの名無しさん
2010/01/15(金) 00:06:230414デフォルトの名無しさん
2010/01/15(金) 07:47:580415デフォルトの名無しさん
2010/01/16(土) 00:24:08Sub 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
0416デフォルトの名無しさん
2010/01/16(土) 23:07:07Sub 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
0417デフォルトの名無しさん
2010/01/18(月) 17:31:36＊や％は使えるんですか？
0418デフォルトの名無しさん
2010/01/18(月) 17:43:310419デフォルトの名無しさん
2010/01/18(月) 19:00:34解決しました。
0420デフォルトの名無しさん
2010/01/19(火) 20:41:010421デフォルトの名無しさん
2010/01/25(月) 00:51:540422デフォルトの名無しさん
2010/01/25(月) 17:45:13出力する場合に文字の段落はプログラミングガイドにあるように
supportsService("com.sun.star.text.Paragraph")
で判断できるのですが、挿入された画像は
supportsService("com.sun.star.text.TextGraphicObject")
では判断できないのですが、使用法が違うのでしょうか？
それともcom.sun.star.graphicかcom.sun.star.drawingを使うのでしょうか？
あとハイパーリンクへのアクセスの仕方も良く分からない（T_T)
ヒント等があればお願いします。
0423デフォルトの名無しさん
2010/01/25(月) 20:42:16画像が埋め込みじゃなければ GraphicURL プロパティ
0424デフォルトの名無しさん
2010/01/26(火) 17:03:09どうもです。
画像は埋め込みでないので画像のURLの情報を得ようとすると
Doc = ThisComponent
OG = Doc.getGraphicObjects
msgbox OG(0).GraphicURL
で画像のURLの情報にアクセすることは分かるのですが、
Writerに記載した順序でテキストデータに出力する場合は、
EnumerationのWhileループではできなさそうですね(＾＾;
APIのWikiは英語だしよく分からない(T_T
ググるとカーソル位置に画像を挿入するサンプルコードは見つかるんですけどねぇ
0425デフォルトの名無しさん
2010/01/26(火) 17:50:420426デフォルトの名無しさん
2010/01/29(金) 10:59:56>css.text.XTextRangeCompare
どうもです。調べてみます。
0427デフォルトの名無しさん
2010/02/14(日) 13:48:06これは有り難い。
OracleによるSun買収でどうなるか心配していたけど、
今回は、まじめにやってくれたみたいね。
0428ビギナー
2010/02/17(水) 10:35:48株式投資で一銘柄の過去の株価データを使って色々な条件で
売買したらどのような結果になるかのプログラムをつくりたく、
ooo basic でもこのようなことができますでしょうか？
具体的には、一銘柄について
日付、株価（始値、高値、安値、終値）をデータとし
何年何日に何円で株を何単位買い、買値より10円高い売り注文
株価が10円下がるごとに買い増し、買値より10円高い売り注文
と、詳細は更に検討しています。
それで結果、どのような売買記録でどのぐらいの収益になるか
の様なものです。
こんなこともできますでしょうか？
データについては、オープンオフィスのＣＡＬＣにインプット
済みです。
些細なことでも何でも構いませんので、アドバイスよろしく
お願いいたします。
0429デフォルトの名無しさん
2010/02/17(水) 13:52:37>>1の参考になる主なリンクの情報だけでやりたい事を実現できます。
アドバイスをねだる前に過去ログを読んでください。
0430ビギナー
2010/02/17(水) 15:38:25すいません、了解しました。
ありがとうございます。
0431ビギナー
2010/02/18(木) 12:44:35１、指定した日で指定した株価で1000株買います。
（売買は全部1000株なので考慮必要なしとします）
買い注文は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円売り注文)
0432デフォルトの名無しさん
2010/02/18(木) 12:46:110433@yuo
2010/02/28(日) 15:18:35マクロでcalcファイルを開くのにはどうしたらいいですか？
以下にふぁいるがあります。
C:\My Documents\学習\test.ods
0434デフォルトの名無しさん
2010/02/28(日) 17:53:53sURL = ConvertToURL("C:\My Documents\学習\test.ods")
oDoc = StarDesktop.loadComponentFromURL(sURL, "_blank", 0, Array())
End Sub
0435@yuo
2010/02/28(日) 18:47:26プログラミング未経験で、色々調べてやっていたのですが
最初からつまずいてしまっていました。
どうもありがとうございます。
0436mu-mu
2010/03/11(木) 05:22:57マクロから日付を入力したいのですがどうすればよいのか分かりません。
Cell.String = "2010/03/11"
とすると表示は「2010/03/11」ですが、数式入力ボックスでは「'2010/03/11」
になってしまい日付として認識してくれません。
教えてえろい人orz
0437デフォルトの名無しさん
2010/03/11(木) 09:47:52Cell.numberformat = 36
0438デフォルトの名無しさん
2010/03/11(木) 10:15:22Cell.Value = DateSerial (2010, 3, 1)
DateSerial関数のパラメータは年、月、日の順。
そのままだと謎い数字が出てくるだけなので、
セルの書式を、日付のものに変更して。
0440デフォルトの名無しさん
2010/03/12(金) 14:51:03日付のデータって、見た目は YYYY/MM/DD だけど、格納されてるのは
OpenOffice.org が対応してる年月時間を順列にした整数なの。
0〜9999999999999999999999 みたいな数で 1100年１月1日から2100年の12月31日までを管理するって感じ。
0441デフォルトの名無しさん
2010/03/20(土) 15:12:57という風に範囲指定で文字列を連結したいのですが、できますか？
0442デフォルトの名無しさん
2010/03/21(日) 00:15:24Function 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
0443デフォルトの名無しさん
2010/03/21(日) 00:34:34できました！ありがとうございます
0444デフォルトの名無しさん
2010/05/24(月) 21:18:330445デフォルトの名無しさん
2010/05/24(月) 21:47:310446デフォルトの名無しさん
2010/05/24(月) 21:51:14すいませんどうやればいいんでしょうか？
ヘルプ見てもググッても見つからないのですが・・・
0447デフォルトの名無しさん
2010/05/25(火) 17:16:32というかできない
0448デフォルトの名無しさん
2010/06/16(水) 00:14:31option vbaSupport 1
option compatible
option classModule
をつければクラスモジュールとして使えます
ただこの3つの違いがわかりません
誰か知ってる人いませんか
0449デフォルトの名無しさん
2010/06/22(火) 17:32:48Option Compatible について
ttp://api.openoffice.org/servlets/ReadMsg?list=dev&msgNo=9399
0450デフォルトの名無しさん
2010/06/22(火) 17:47:13最近のバージョンなら区別しなくていいみたい
0451デフォルトの名無しさん
2010/09/08(水) 17:29:41正規表現で株主優待情報だけ抽出するには、この先どうしたらいいですか？
Sub FileAccess
Dim oFileAccess As Object
Dim sURL As String
Dim oInputStream As Object
Dim vData As Variant
Dim sLine As String, sDataLine As String
sURL = "http://biz.yahoo.co.jp/stockholder/search?detail=1766"
oFileAccess = createUnoService("com.sun.star.ucb.SimpleFileAccess")
oInputStream = CreateUnoService("com.sun.star.io.TextInputStream")
oInputStream.setEncoding( "EUC-JP" )
If oFileAccess.exists(sUrl) Then
vData = oFileAccess.openFileRead(sUrl)
oInputStream.setInputStream(vData)
While NOT oInputStream.isEOF()
sLine = oInputStream.readLine()
sDataLine = sDataLine & sLine & Chr(10)
WEnd
oInputStream.closeInput()
End if
txt(sDataLine)
End Sub
0452デフォルトの名無しさん
2010/09/08(水) 17:32:55http://yuzuru.2ch.net/test/read.cgi/offmatrix/1283926084/
1: 2010/09/08 15:08:04 21BrBr5lsd
日時は9月12日､日曜日予定
場所は中国大使館前
0453デフォルトの名無しさん
2010/11/05(金) 14:40:59このように書きました。
StyleFamilies = objDocument.StyleFamilies
PageStyles = StyleFamilies.getByName("PageStyles")
DefPage = PageStyles.getByName("Default")
DefPage.HeaderOn = True
DefPage.HeaderBackGraphicURL =D:\xxxx.bmp ’画像ファイルのパス
メニューで言うと次の場所になります。
書式→ページ→ヘッダー→詳細
ファイル---表示ボタンを押下しファイルを選択。
ここのリンクのチェックを外したいのですが、やり方がわかりません。
ご存知の方、教えてください！
0454デフォルトの名無しさん
2010/11/05(金) 15:03:53|┃ | |
|┃ ＼＿／
ｶﾞﾗｯ |┃ |
|┃ ／￣￣￣ ＼
|┃三 ／ ::＼:::／:::: ＼
|┃ ／ <●>::::::<●> ＼ 呼んだな？
|┃ | （__人__） |
|┃三 ＼ ｀ ⌒´ ／
|┃三 ／￣￣￣￣￣￣￣ ＼
||＞＞ Libre Office PART1 ＜＜＜||
http://hibari.2ch.net/test/read.cgi/software/1288792911/
0455デフォルトの名無しさん
2010/11/05(金) 15:30:12リンクせずに設定して調べてみると、HeaderBackGraphicURL は空文字列で
該当するテキストオブジェクトの段落の背景に埋め込まれた画像の URL が指定されている
0456デフォルトの名無しさん
2010/12/21(火) 21:40:170457天使 ◆uL5esZLBSE
2011/07/02(土) 21:05:30.50そんな言語使ってる奴ってどうみてもゴミだと思うんだけど
もしかして「；」これ打ち忘れてコンパイルエラー出すのが楽しいの？
そうか、二度と話かけんなよ
死ねよゴミ
0458デフォルトの名無しさん
2011/07/21(木) 20:56:49.2310億年も戦争を続けており終わる気配すら無い
■ このスレッドは過去ログ倉庫に格納されています