1 <?xml version=
"1.0" encoding=
"UTF-8"?>
2 <!DOCTYPE script:module PUBLIC
"-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd">
3 <script:module xmlns:
script=
"http://openoffice.org/2000/script" script:
name=
"Lang_ja" script:
language=
"StarBasic">Option Explicit
5 Sub LoadJapaneseLanguage()
7 sProductname = GetProductname
9 sCancel =
"キャンセル
"
10 sColumnHeader =
"列番号
"
11 sInsertStockName =
"最初に株の銘柄を入力してください。
"
12 sTitle =
"<PRODUCTNAME
>: 株管理
"
13 sTitle = ReplaceString(sTitle, sProductName,
"<PRODUCTNAME
>")
14 sMsgError =
"入力フィールド
"
15 sMsgNoName = sInsertStockname
16 sMsgNoQuantity =
"0 より大きな額を入力してください。
"
17 sMsgNoDividend =
"1株当たりの配当金額または総配当金額を入力してください。
"
18 sMsgNoExchangeRate =
"交換比率(旧株-
>新株)を入力してください。
"
19 sMsgNoValidExchangeDate =
"株式分割日を入力してください。
"
20 sMsgWrongExchangeDate =
"分割日以降に取引がすでに存在するので、分割できません。
"
21 sMsgSellTooMuch =
"売却できる株式数を超えています。最大値:
"
22 sMsgConfirm =
"ご確認ください
"
23 sMsgFreeStock =
"無料株式を入力しますか?
"
24 sMsgTotalLoss =
"全損の入力を行いますか?
"
25 sMsgAuthorization =
"確認ダイアログ
"
26 sMsgDeleteAll =
"すべての移動を取り消し、ポートフォリオの概要をリセットしますか?
"
27 cSplit =
"株式分割日
"
28 sHistory =
"履歴
"
29 TransactTitle(
1) =
"株を買う
"
30 TransactTitle(
2) =
"株を買う
"
31 StockRatesTitle(
1) =
"配当額
"
32 StockRatesTitle(
2) =
"株式分割
"
33 StockRatesTitle(
3) = sHistory
34 sDepotCurrency =
"ポートフォリオの通貨
"
35 sStockName =
"株式名
"
36 TransactMode = LIFO
' Possible values:
"FIFO
" and
"LIFO
"
37 DateCellStyle =
"結果(日付)
"
38 CurrCellStyle =
"1"
39 sStartDate =
"開始日:
"
40 sEndDate =
"終了日:
"
41 sStartUpWelcome =
"このテンプレートを使えば、株式のポートフォリオをより効率的に管理できます。
"
42 sStartUpChooseMarket =
"まず、インターネットにより情報を更新する基準通貨と、対応する証券取引所を選択します。
"
43 sStartUpHint =
"残念ながら、
<History
> 機能を使用できるのは米国市場に限られています。
"
44 sStartupHint = ReplaceString(sStartUpHint, sHistory,
"<History
>")
45 sNoInternetUpdate =
"インターネットによる情報の更新を行いません
"
46 sMarketPlace =
"証券取引所:
"
47 sNoInternetDataAvailable =
"インターネットから株価情報を受信できない場合があります!
"
48 sCheckInternetSettings =
"考えられる原因は次のとおりです。
<BR
>インターネット設定の変更が必要です。
<BR
>入力した株式のが間違っています。
"
49 sCheckInternetSettings = ReplaceString(sCheckInternetSettings, chr(
13),
"<BR
>")
51 sMsgEndDatebeforeNow =
"終了日は、今日の日付より前であることが必要です。
"
52 sMsgStartDatebeforeEndDate =
"開始日は、終了日より前であることが必要です。
"
54 sMarket(
0,
0) =
"米ドル
"
55 sMarket(
0,
1) =
"$
"
56 sMarket(
0,
2) =
"ニューヨーク
"
57 sMarket(
0,
3) =
"http://finance.yahoo.com/d/quotes.csv?s=
<StockID
>&f=sl1d1t1c1ohgv
&e=.csv
"
58 sMarket(
0,
4) =
"http://ichart.finance.yahoo.com/table.csv?
" &_
59 "s=
<StockID
>&d=
<EndMonth
>&e=
<EndDay
>&f=
<Endyear
>&g=d
&" &_
60 "a=
<StartMonth
>&b=
<StartDay
>&c=
<Startyear
>&ignore=.csv
"
61 sMarket(
0,
5) =
"シンボル
"
62 sMarket(
0,
6) =
"en
"
63 sMarket(
0,
7) =
"US
"
64 sMarket(
0,
8) =
"409"
65 sMarket(
0,
9) =
"44"
66 sMarket(
0,
10) =
"1"
68 sMarket(
1,
0) =
"ユーロ
"
69 sMarket(
1,
1) = chr(
8364)
70 sMarket(
1,
2) =
"フランクフルト
"
71 sMarket(
1,
3) =
"http://de.finance.yahoo.com/d/quotes.csv?s=
<StockID
>.F
&f=sl1t1c1ghpv
&e=.csv
"
72 sMarket(
1,
5) =
"銘柄コード
"
73 sMarket(
1,
6) =
"de;nl;pt;el
"
74 sMarket(
1,
7) =
"DE;NL;PT;GR
"
75 sMarket(
1,
8) =
"407;
413;
816;
408"
76 sMarket(
1,
9) =
"59/
9"
77 sMarket(
1,
10) =
"1"
79 sMarket(
2,
0) =
"英ポンド
"
80 sMarket(
2,
1) =
"£
"
81 sMarket(
2,
2) =
"ロンドン
"
82 sMarket(
2,
3) =
"http://uk.finance.yahoo.com/d/quotes.csv?s=
<StockID
>.L
&m=*
&f=sl1t1c1ghov
&e=.csv
"
83 sMarket(
2,
5) =
"シンボル
"
84 sMarket(
2,
6) =
"en
"
85 sMarket(
2,
7) =
"GB
"
86 sMarket(
2,
8) =
"809"
87 sMarket(
2,
9) =
"44"
88 sMarket(
2,
10) =
"1"
90 sMarket(
3,
0) =
"日本円
"
91 sMarket(
3,
1) =
"¥
"
92 sMarket(
3,
2) =
"東京
"
93 sMarket(
3,
3) =
""
94 sMarket(
3,
5) =
"コード
"
95 sMarket(
3,
6) =
"ja
"
96 sMarket(
3,
7) =
"JP
"
97 sMarket(
3,
8) =
"411"
98 sMarket(
3,
9) =
""
99 sMarket(
3,
10) =
""
101 sMarket(
4,
0) =
"香港ドル
"
102 sMarket(
4,
1) =
"HK$
"
103 sMarket(
4,
2) =
"香港
"
104 sMarket(
4,
3) =
"http://hk.finance.yahoo.com/d/quotes.csv?s=
<StockID
>.HK
&f=sl1d1t1c1ohgv
&e=.csv
"
105 sMarket(
4,
5) =
"番号
"
106 sMarket(
4,
6) =
"zh
"
107 sMarket(
4,
7) =
"HK
"
108 sMarket(
4,
8) =
"C04
"
109 sMarket(
4,
9) =
"44"
110 sMarket(
4,
10) =
"1"
112 sMarket(
5,
0) =
"オーストリア・ドル
"
113 sMarket(
5,
1) =
"$
"
114 sMarket(
5,
2) =
"シドニー
"
115 sMarket(
5,
3) =
"http://au.finance.yahoo.com/d/quotes.csv?s=
<StockID
>&f=sl1d1t1c1ohgv
&e=.csv
"
116 sMarket(
5,
5) =
"シンボル
"
117 sMarket(
5,
6) =
"en
"
118 sMarket(
5,
7) =
"AU
"
119 sMarket(
5,
8) =
"C09
"
120 sMarket(
5,
9) =
"44"
121 sMarket(
5,
10) =
"1"
123 ' ****************************End of the default subset*********************************
126 LocalizedCurrencies()
129 .lblStockNames.Label = sStockname
130 .lblQuantity.Label =
"株数
"
131 .lblRate.Label =
"価格
"
132 .lblDate.Label =
"取引日
"
133 .hlnCommission.Label =
"その他の経費n
"
134 .lblCommission.Label =
"手数料
"
135 .lblMinimum.Label =
"最低手数料
"
136 .lblFix.Label =
"固定費/諸経費
"
138 .cmdCancel.Label = sCancel
142 .optPerShare.Label =
"配当金/株式数
"
143 .optTotal.Label =
"配当金の総額
"
144 .lblDividend.Label =
"金額
"
145 .lblExchangeRate.Label =
"交換比率(旧株-
>新株)
"
146 .lblColon.Label =
":
"
147 .lblDate.Label =
"交換日:
"
148 .lblStockNames.Label = sStockname
149 .lblStartDate.Label = sStartDate
150 .lblEndDate.Label = sEndDate
151 .optDaily.Label =
"~毎日
"
152 .optWeekly.Label =
"~毎週
"
153 .hlnInterval.Label =
"期間
"
155 .cmdCancel.Label = sCancel