create a new page, using OOoBasic/Generic/URL as a template.
Front page
Search
掲示板
Reload
Help
Browse Log
掲示板の使い方
OOo 掲示板３
OOo 掲示板２
OOo 掲示板
掲示板
雑談掲示板
New
List of pages
Recent changes
Backup
簡単ヘルプ
整形ルール
Start:
*URL [#f670a882]
OpenOffice.org ではファイルパスなどを取り扱う時に URL 形...
OOo Basic ではシステムパスから URL への変換は ConvertToUR...
一方で URL を調べる方法を取り上げます。
**URLTransformer [#hc80a1c9]
com.sun.star.util.URLTransformer は URL をパスやプロトコ...
Sub url_1
sURL = "file:///home/hoge/Desktop/124.odt"
aURL = CreateUnoStruct("com.sun.star.util.URL")
aURL.Complete = sURL
CreateUnoService("com.sun.star.util.URLTransformer")._
parseStrict( aURL )
msgbox "Protocol: " & aURL.Protocol & chr(10) & _
"Path: " & aURL.Path & chr(10) & _
"Name: " & aURL.Name
End Sub
parseStrict メソッドの引数は [inout] なので渡した URL が...
-[[IDLRef. URL>http://api.openoffice.org/docs/common/ref/...
**UriAbbreviation [#ee5380b6]
com.sun.star.util.UriAbbreviation サービスを利用すると長...
Sub uriabbreviation_1
sURL = "file:///C:/Documents/home/another/path/documen...
ua = CreateUnoService("com.sun.star.util.UriAbbreviati...
sw = CreateUnoListener("XStringWidth_", "com.sun.star....
msgbox ua.abbreviateString(sw, 40, sURL)
End Sub
Function XStringWidth_queryStringWidth( sString As Strin...
XStringWidth_queryStringWidth = Len(sString)
End Function
指定幅未満に調整してくれます。
End:
*URL [#f670a882]
OpenOffice.org ではファイルパスなどを取り扱う時に URL 形...
OOo Basic ではシステムパスから URL への変換は ConvertToUR...
一方で URL を調べる方法を取り上げます。
**URLTransformer [#hc80a1c9]
com.sun.star.util.URLTransformer は URL をパスやプロトコ...
Sub url_1
sURL = "file:///home/hoge/Desktop/124.odt"
aURL = CreateUnoStruct("com.sun.star.util.URL")
aURL.Complete = sURL
CreateUnoService("com.sun.star.util.URLTransformer")._
parseStrict( aURL )
msgbox "Protocol: " & aURL.Protocol & chr(10) & _
"Path: " & aURL.Path & chr(10) & _
"Name: " & aURL.Name
End Sub
parseStrict メソッドの引数は [inout] なので渡した URL が...
-[[IDLRef. URL>http://api.openoffice.org/docs/common/ref/...
**UriAbbreviation [#ee5380b6]
com.sun.star.util.UriAbbreviation サービスを利用すると長...
Sub uriabbreviation_1
sURL = "file:///C:/Documents/home/another/path/documen...
ua = CreateUnoService("com.sun.star.util.UriAbbreviati...
sw = CreateUnoListener("XStringWidth_", "com.sun.star....
msgbox ua.abbreviateString(sw, 40, sURL)
End Sub
Function XStringWidth_queryStringWidth( sString As Strin...
XStringWidth_queryStringWidth = Len(sString)
End Function
指定幅未満に調整してくれます。
Page:
