2022-09-07 「使い方」の改善。setwd()、getwd()
2020-10-18 Rパッケージ化
#

はじめに

法人税の決算作業で「有価証券を整理する」

通常であれば、
　　証券会社のCSV（約定明細）から
　　「⑥有価証券の内訳書」を作成するだけです。
ですが、これだと
　　「⑥有価証券の内訳書」の株式数量が合わない、
ことがあります。

たぶん、株式分割です。
例えば、
　　(9432)NTTは2019-12-31に分割比率1:2で株式分割してるので、
　　保有株式数が400株だと800株に変更となります。
この事実を
割当株式として取り込む必要があるのです。

しかしこれが、
SBI証券の場合、
　　元ネタがPDFなのですよ。↓サンプル

#

想定PDF

位置	テキスト
x→		横の位置
y↓
上段
126	銘柄、権利区分、権利割当日、分割比率	y1
135	(銘柄コード)	y2
下段
180	加入者名、お預り数量、割当数量、合計数量	y3
縦の位置

#

使い方（パッケージ版）

githubにパッケージを作ったのでインストールしてください。

準備.r

library(devtools) # install.packages("devtools")
install_github("nt1969m/sbitools") #面倒な事を聞かれたら、3: Noneで、

PDFのあるファイルパスを指定し、実行して下さい。

CSV作成.R

# setwd() ※PDFのあるディレクトリーを設定
    # R本体の場合、  「メニュー」 → 「その他」 → 「作業ディレクトリの変更」
    # RStudioの場合、「メニュー」→「Session」→「Set Working Directory」→「Choose Directory」
d <- getwd()
library(sbitools)
dummy <- As(d) # Allocated sharesの略語のつもり

CSVファイル(割当株式等.csv)が作られたはず。

#

使い方（ソース直書き版）
※ご興味のある方のみ、ご参照ください

割当csv.R

# 株式分割
source( "B_0988_SBI証券_割当株式.R" ) 
# PDF群のディレクトリー
d <- file.path(	FY  ,"B_0988_SBI証券/割当株式"	) 
  # FY:会計年度(Fiscal Year)のディレクトリ

  # ファイル単位であれば
  # f	<- file.path( d	,"YYYYmmddnnnnnnnnnnnn.PDF" )
# PDF→CSV変換
mei	<-	割当株式_d( d )	# ディレクトリー単位
  # mei	<-	割当株式( f ) # ファイル単位
# _全角csv出力
write.table( mei ,file.path( d ,"割当株式_全角.txt" ) )		 # ディレクトリー単位
  # write.table( mei ,gsub( ".PDF" ,"_全角.txt" ,f ) )		# ファイル単位

#  半角 ← 全角
h_mei <- 半角( mei )

# _半角csv出力
write.table( h_mei ,file.path( d ,"割当株式_半角.txt" ) )	# ディレクトリー単位
  # write.table( h_mei ,gsub( ".PDF" ,"_半角.txt" ,f ) )	# ファイル単位

B_0988_SBI証券_割当株式.R

# pdfデータをインポートするため
 library( pdftools ) # install.packages( 'pdftools' )
# 全角→半角
 library( stringi ) # install.packages( "stringi")

# 最終型
割当株式.init	<- function()	{
	# 列数を初期化
	割当株式 <- data.frame( matrix( NA ,0 ,9 ) )
	# 列名を初期化
	colnames( 割当株式 )		<-	c(
 "銘柄"	,"銘柄コード"
,"権利区分"	 ,"権利割当日" ,"分割比率"
,"加入者名"	,"お預り数量"	 ,"割当数量" ,"合計数量" )
return( 割当株式 )		
}
# y抽出
yn <- function( df ,p ,n )	{
	# p:ページ
	# n:明細行の"y"
	x <- paste0( df[[ p ]]
				[ df[[ p ] ]$"y" == n	,	]$"x"	)
	x <- as.integer( x )
	o <- order( c( x ) )
	t <- paste0( df[[p] ]
				[ df[[p] ]$"y" == n	,	]$"text"	)
return( t[ o ] )
}
# 日付の対処
ymd <- function( ve ) {
	d	<-	grep(		"日"	,ve		)	
 	if( length( d ) != 1 )	return( ve )						# ベクトルの要素が「１」である事
	y	<-	grep(		"年"	,ve		)	
 	switch(	d	
 	,	"1"	= {
				 	if(	y == 1 ) {
				 		paste0( ve[ d ]	)							# 年月日 
				 	} else
				 		paste0( ve[ y ] ,ve[ d ]	)				# (月日) (年)	※欧米かよ
		}
 	,	"2"	= paste0( ve[1]	,ve[ d ]		)				# (年)月日 or (年月)日
 	,	"3"	= paste0( ve[1]	,ve[2]		,ve[ d ]		)	# (年)(月)(日)
	)
}
# 上段
upper	<- function( df ,p )	{
	# p : ページ p <- 1
	y1 <- yn( df ,p ,126 )
	y2 <- yn( df ,p ,135 )
	k <- grep( "株式分割" ,y1 )
	銘柄 <- y1[ 1:k-1 ]
	権利区分 <- y1[ k ]
	n <- grep( "[年月日]" ,y1 )
	y <- n[ n > k ]
	ve <- paste( y1[ y ] )
	権利割当日 <- ymd( ve )
	n <- grep( "：" ,y1 )
	分割比率 <- paste0( y1[n] ,y1[n+1] )
return( c( 銘柄 ,y2 ,権利区分 ,権利割当日 ,分割比率  ) )
}
# 下段
lower	<- function( df ,p )	{
	# p : ページ
	y3 <- yn( df ,p ,180 )
}

# 割当株式
割当株式 <- function( f ) {
	# pdf_info( f )
# 入力
	Pages	<- pdf_info( f )$pages	# 総ページ数
	df	<-	pdf_data( f )
# 出力
	mei	<- 割当株式.init()	
	for( p in 1:Pages ) {
	# ページ単位
		mei[ p , ] <-	c( upper( df ,p )　,lower(  df ,p ) )  
	}
return( mei )
}
# 半角
半角 <- function( mei ) {
	han	<- 割当株式.init()
	for( i in 1:nrow( mei ) ) {
		han[ i , ]	<-	stri_trans_nfkc( mei [ i , ] )
	}
	han[ ,"権利割当日"] <- as.Date( han[ ,"権利割当日" ] ,format="%Y年%m月%d日")
return( han )
}

割当株式_d <- function( d ) {
	files <- dir(	d ,pattern = ".pdf$" ,ignore.case=T )
	stack <- 割当株式.init()
	for( i in 1:length( files ) ) {
	f <- file.path( d ,files[ i ] )	# ファイル単位
	mei 	<- 割当株式( f )
	stack 	<- rbind( stack ,mei )
	}
return( stack )
}