2017年6月6日 星期二

20170606 替太太平倉希慎(0014) @37.5

自從4年半前(2013年1月)替太太買入希慎(0014)後,今晚終於可以平倉了(@37.5)。
不計收息的話,希慎只賺了+957.50 (+1.30%) 賣出原因不是等錢用,而是我太太覺得賬面見紅礙眼!

2017年5月31日 星期三

20170531 又放盈富@26.1

雖然恆指還未到28000,但因現金水平太低,所以又放盈富@26.1。退休人士還是安全些好!

2017年5月22日 星期一

Google's Undocumented Finance API

這幾天來因yahoo finance的歷史股價下載api中斷,我便決心轉用google finance。
原本很簡單的,google finance的網頁有過往股價的顯示和下載如:
https://www.google.com.hk/finance/historical?q=HKG:2800&startdate=2012-01-01&enddate=2017-12-31&num=200&output=csv
但... :( 竟然得到以下對待!:-
404. That’s an error.
The requested URL was not found on this server. That’s all we know.
原來非美國股票只能顯示(&output=),不能下載(&output=csv)。

我參考了 http://www.networkerror.org/component/content/article/1-technical-wootness/44-googles-undocumented-finance-api.html
動手做了以下的 ods oobasic 代碼 (excel vba 請斟酌改動):

-------------------------------------------------------
'20170520 - try google instead of yahoo
'    cURL = "http://ichart.finance.yahoo.com/table.csv?s=" & cSymbols & "&a=" & cStartMonth & "&b=" & cStartDay & "&c=" & cStartYear & "&d=" & cEndMonth & "&e=" & cEndDay & "&f=" & cEndYear & "&g=" & cGranularity & "&ignore=.csv"
     cURL = "https://www.google.com/finance/getprices?q=" & LEFT(cSymbols,4) & "&x=HKG&i=86400&p=5Y&f=d,c,h,l,o,v"

   ' Open up a new spreadsheet from the above URL.
   ' Specify the CSV filter with options that decode the CSV format comming back from Yahoo.
   ' Specify the Hidden property so that the spreadsheet does not appear on the screen.
      oCalcDoc = StarDesktop.loadComponentFromURL( cURL, "_blank", 0,_
      Array( MakePropertyValue( "FilterName", "Text - txt - csv (StarCalc)" ),_
            MakePropertyValue( "FilterOptions", "44,34,SYSTEM,1,1/10/2/10/3/10/4/10/5/10/6/10/7/10/8/10/9/10" ),_
            MakePropertyValue( "Hidden", True ) ) )
            ' 20170520 - change True to False for debug
 
Do Until oCalcDoc.IsLoaded
  wait(100)
Loop

   ' Get the first sheet of the Calc document.
    oSheet = oCalcDoc.getSheets().getByIndex( 0 )
    oCell = oSheet.getCellRangeByName("K1")
    oCell.setString("")
    oCell.setFormula("=COUNTA(A2:A3737)")
    iCount = oCell.getValue()

' 20170522 - convert unix timestamp to date in Google finance history OSheet
'            also swap Open / close price
Dim iRow
Dim tempCell
Dim tempint as double
Dim iUnixTime
for iRow = 9 to iCount + 1
    oCell = oSheet.getCellRangeByName("B" & CSTR(iRow))
    tempCell = oCell.getValue()                                       ' tempCell = B[i]
    oCell.setValue(oSheet.getCellRangeByName("E" & CSTR(iRow)).getValue())  ' B[i] CLOSE = E[i] OPEN
    oSheet.getCellRangeByName("E" & CSTR(iRow)).setValue(tempCell)          ' E[i] = tempCell
    oSheet.getCellRangeByName("G" & CSTR(iRow)).setValue(tempCell)          ' G[i] = tempCell adjclose = close
 
 ' convert unix timestamp in google finance getprices to date
'  =IF(LEFT(A9,1)="a", INT(VALUE(RIGHT(A9,10))/86400) + DATE(1970,1,1), IF(LEFT(A8,1)="a", G8+A9, G8+A9-A8))
 
    oCell = oSheet.getCellRangeByName("A" & CSTR(iRow))
    if LEFT(oCell.getString(),1) = "a" then
       tempint = RIGHT(oCell.getString(),10)
       iUnixTime = INT(tempint/86400) + DATEVALUE("1970-01-01")
       oCell.setValue(iUnixTime)
    else
       oCell.setValue(iUnixTime + oCell.getValue())
    endif
next

' v1_14 - use cellrange copy
' OldPosition =  "A2:G" & CSTR(1+iCount) ' "A2:G90"
' 20170522 - for google finance, copy A9:
 OldPosition =  "A9:G" & CSTR(1+iCount) ' "A9:G90"

  oSource = oSheet.getCellRangeByName(OldPosition)    

               ' NewPosition =  "I" & CSTR(1+iRow) & ":J" & CSTR(1+iRow) ' "I18:J18"
               ' print "1+iRow=", 1+iRow, " NewPosition=", NewPosition
               ' oTargetSheet = ThisComponent.Sheets.getByName("stockprice")
               
               'oTarget = oTargetSheet.getCellRangeByName(NewPosition)
 '              NewPosition =  "A37:G" & CSTR(36+iCount) ' "A37:G90"
 ' 20170522 - for google finance, end row - 7
                iCount = iCount - 7
             
                NewPosition =  "A37:G" & CSTR(36+iCount) ' "A37:G90"              
               oTarget = oChartSheet.getCellRangeByName(NewPosition)
           oTarget.DataArray = oSource.DataArray

   ' Be sure to close the spreadsheet, because it is hidden, and the user cannot close it.
   ' 20170520 - do not close for debug
    oCalcDoc.close( True )
 ThisComponent.calculateAll()

-----------------------------------------------------

2017年5月17日 星期三

20170517 首次買入粵海投資(0270) @11.20

在港股進入小時代(>25000點)後,正常操作是沽貨套現。但今天 首次買入粵海投資(0270) @11.20。原因是它是在我watchlist之中,而買入價也到了趨勢系統的下限。據聞因百麗(1880)打算私有化,粵海投資(0270)可能成為下次替代成為恆指成份股。

2017年5月10日 星期三

20170510 恆指終上二萬五 - 又套現盈富(2800.hk) @25.20

今天恆指終上二萬五 - 又套現盈富(2800.hk) @25.20。餘下的盈富不再放了,除非到了28000點。下個放的是匯豐,大約到$70吧!

2017年5月3日 星期三

港股選股器

今天找到一個免費的港股選股器:https://hk.investing.com/stock-screener/
便用它做了以下選股:

5年平均股息收益率                         4.00 - 18.66
市值和賬面有形資產比率 (MRQ)  0.07 - 2.50
長期負債股權比 (MRQ)                  0.00 - 25.00
淨利率 (5YA)                                  15.00 - 2.80K
股息收益率 (%)                               3.50  - 43.84
市值                                                 3.00B - 2354.17B

---------------------------------------------------
篩選結果 (19) + (extra 4 near miss)
名稱             代號             最新      漲跌幅% 市值 成交量
中銀香港 2388 32.2 0.63% 340.44B 7.70M
恒生銀行 0011 158.1 0.25% 302.26B 575.85K
電能實業 0006 70.05 0.07% 149.51B 3.98M
领展房产基金 0823 55.85 -0.18% 123.60B 2.60M
信和置業 0083 13.1 -0.61% 82.73B 2.49M
建滔積層板 (1) 1888 9.6 2.35% 29.38B 6.40M
合和實業 0054 29.2 -1.68% 25.40B 295.11K
合和公路基建 0737 4.45 -1.11% 13.71B 999.55K
金界控股 3918 4.31 0.00% 10.60B 1.23M
海港企業 0051 14.18 -0.28% 10.05B 3.00K
美麗華酒店 (2) 0071 17.06 0.71% 9.86B 68.00K
凱聯國際酒店 0105 23.45 0.64% 8.44B 2.00K
陽光房地產基金 0435 4.83 0.00% 7.92B 1.03M
特步國際 (3) 1368 3.09 -0.32% 6.86B 1.81M
湯臣集團 0258 3.56 -3.78% 6.11B 756.43K
中國利郎 1234 4.93 0.61% 5.96B 1.21M
廖創興企業 0194 12.3 0.16% 4.66B 320.00K
大昌集團 0088 7.41 1.23% 4.58B 102.99K
天德地產 0266 8.85 0.45% 4.20B 17.26K
大眾金融控股 0626 3.6 0.00% 3.95B 124.00K
金利來集團 0533 3.3 -0.30% 3.24B 91.00K
香港小輪(集團) 0050 9.03 0.44% 3.22B 79.50K
惠記集團 (4) 0610 3.79 0.26% 3.01B 428.00K

其中另外4個股是near miss,可能是息率或負債稍差。但可放入觀察名單內。
另外選股條件沒有股東權益回報率(ROE%)。 若考慮5年平均ROE >15%更好。

又轉以下2015年12月信報文章:

【360選股器】學股神睇埋ROE

2015年好快就過,相信唔少投資者正準備部署明年選股,會特別留意基本因素較好嘅股份。散戶一般都會睇市盈率(PE)及息率,認為低PE,高息率可以睇高一線,卻忽略了其他重要嘅基本分析數據。
好似股神畢非德好重視嘅股東權益回報率(ROE),大家不妨多加留意。股神講過,ROE低於15%的公司,基本上不會予以考慮。事實上,現時部份外資券商分析員,都用市賬率(PB)跟ROE比較,PB/ROE比率愈低,代表股份越抵買。
如果用《360選股》「DIY選股」,選項可設定為:1)股東權益回報率大概在15%以上;2)市賬率低於1;3)市盈率低於20倍;4)息率高於2厘;5)市值在100億元以上。
最新篩選結果有21隻股份,內銀股佔最多,其次是內房股及REITs;資源類的中海油(00883)及中海油服(02883)都符合篩選條件,而從事鋁產品製造的中國宏橋(01378)也上名,可以留意。當然,大家亦可自行調整一下選項,再看得出結果如何。
信報投資分析部