/mercurial/hgweb_golang.cgi: src/kaigo/Nk/nk.go comparison

comparison src/kaigo/Nk/nk.go @ 42:c58172a59534

bug fix.

author	pyon@macmini
date	Tue, 10 Mar 2020 21:12:29 +0900
parents	34a474fb83c3
children	17e042fc8a33

comparison

equal deleted inserted replaced

-:34a474fb83c3
+:c58172a59534
 /*
 nk.go: Nintei Kekka
-Last Change: 2020-01-24 金 09:18:04.
+Last Change: 2020-03-10 火 16:38:20.
 */
 package main
 /*
 	XDW_CloseDocumentHandle(h, NULL);
 	return (api_result >= 0);
 }
-int xdwaddatn(const char* file, char* atnlist) {
+int xdwhbaddatn(const char* file, char* atnlist) {
 	char in_path[_MAX_PATH];
 	_fullpath(in_path, file, _MAX_PATH);
 	XDW_DOCUMENT_HANDLE h = NULL;
 	XDW_OPEN_MODE_EX mode = {sizeof(XDW_OPEN_MODE_EX), XDW_OPEN_UPDATE, XDW_AUTH_NODIALOGUE};
 	free(blk_path);
 	free(blk_path_addr);
 return 0;
+}
+int xdwerase(const char* in_file, const char* ktxt, const char* htxt) {
+	int x = 20000;
+	int y = 3685;
+	int sz = 480;
+	char in_path[_MAX_PATH];
+	_fullpath(in_path, in_file, _MAX_PATH);
+	XDW_DOCUMENT_HANDLE h = NULL;
+	XDW_OPEN_MODE_EX mode = {sizeof(XDW_OPEN_MODE_EX), XDW_OPEN_UPDATE, XDW_AUTH_NODIALOGUE};
+	int api_result = XDW_OpenDocumentHandle(in_path, &h, (XDW_OPEN_MODE*)&mode);
+	if (api_result < 0) return api_result;
+	XDW_DOCUMENT_INFO info = {sizeof(XDW_DOCUMENT_INFO), 0, 0, 0};
+	XDW_GetDocumentInformation(h, &info);
+XDW_FOUND_HANDLE pFoundHandle = NULL;
+	for (int i = 0; i < info.nPages; i++) {
+		api_result = XDW_FindTextInPage(h, i + 1, htxt, NULL, &pFoundHandle, NULL);
+		if (pFoundHandle == NULL) continue;
+		api_result = XDW_FindTextInPage(h, i + 1, ktxt, NULL, &pFoundHandle, NULL);
+		if (pFoundHandle == NULL) continue;
+		XDW_ANNOTATION_HANDLE annoation;
+		int api_result = XDW_AddAnnotation(h, XDW_AID_TEXT, i + 1, x, y, NULL, &annoation, NULL);
+		if (api_result < 0) return api_result;
+		api_result = XDW_SetAnnotationAttribute(h, annoation, XDW_ATN_Text, XDW_ATYPE_STRING, "        ", 0, NULL);
+		api_result = XDW_SetAnnotationAttribute(h, annoation, XDW_ATN_FontSize, XDW_ATYPE_INT, (char*)&sz, 0, NULL);
+	}
+	XDW_SaveDocument(h, NULL);
+	XDW_CloseDocumentHandle(h, NULL);
+	return 0;
 }
 int xdw2pdf(const char* xdwfile, const char* pdffile) {
 	char in_path[_MAX_PATH], out_path[_MAX_PATH];
 	_fullpath(in_path,  xdwfile, _MAX_PATH);
 	"golang.org/x/text/encoding/japanese"
 	"golang.org/x/text/transform"
 )
 var (
-ver = "0.1"
+ver = "0.2"
 	flg_hb int
 	flg_time bool
 	flg_log bool
 	flg_debug bool
 	start time.Time
 hb string // 発番
 fw, hs, kt = "", "", "kttemp.xdw" // 負担割合証, 被保険者証, 結果通知
-step, totalstep = 1, 13
+step, totalstep = 1, 14
 )
 type Annotation struct {
 	X, Y int
 	Sz int
 	step_start = print_time(step_start)
 /* MAKE SORT-TABEL */
 print_step("並び順の決定")
-	re_hhs := regexp.MustCompile(`05((2126)|(2159)|(4346))0[1238]\d{8}`)
+	re_hhs := regexp.MustCompile(`0[1238]\d{8}`)
 	re_kaigo := regexp.MustCompile(`要((介護)|(支援)).`)
 	hash_fw := make(map[string]int) // 負担割合証発行者のハッシュ
 	for _, t := range xdw2txt(fw) {
 		hash_fw[re_hhs.FindString(t)]++
 /* DO SORT */
 	order := ""
 	for _, s := range sorttable {
 		t := strings.Split(s, "#")
-		order += ":" + t[len(t)-1][6:]
+		order += ":" + t[len(t)-1]
 	}
 	order = strings.Replace(order, ":", "", 1)
 print_step("被保険者証並び替え")
 	hs_sorted := filepath.Join(tmpdir, "hs.xdw")
 print_step("結果通知並び替え")
 	kt_sorted := filepath.Join(tmpdir, "kt.xdw")
 	C.xdwsort(C.CString(kt), C.CString(kt_sorted), C.CString(order), C.CString(tmpdir), C.CString("kt"))
 	step_start = print_time(step_start)
-/* ADD ANNOTATION */
+/* ADD HATSUBAN */
 print_step("発番印字")
 	al := strings.Join(conf.AnnotationList(), ":")
 	al, _, _ = transform.String(japanese.ShiftJIS.NewEncoder(), al)
-C.xdwaddatn(C.CString(kt_sorted), C.CString(al))
+C.xdwhbaddatn(C.CString(kt_sorted), C.CString(al))
+	step_start = print_time(step_start)
+/* ERASE HOUKATSU  */
+print_step("包括除去")
+	ktxt, _, _ := transform.String(japanese.ShiftJIS.NewEncoder(), "要介護")
+	htxt, _, _ := transform.String(japanese.ShiftJIS.NewEncoder(), "包括支援センター")
+C.xdwerase(C.CString(hs_sorted), C.CString(ktxt), C.CString(htxt))
 	step_start = print_time(step_start)
 /* OPTIMIZE OUTPUT-FILE */
 print_step("最適化")
 	hs_opt := filepath.Join(outputdir, "hs.xdw")
 	}
 	for i, s := range sorttable {
 		t := strings.Split(s, "#")
 		u := strings.ReplaceAll(t[1], ":", ",")
 		u, _, _ = transform.String(japanese.ShiftJIS.NewEncoder(), u)
-		c := t[2][0:6]
+		h := t[2]
-		h := t[2][6:16]
 		n, _, _ := transform.String(japanese.ShiftJIS.NewEncoder(), hash_hhs[h])
-		// seq, city, hno, name, kaigo, fw, kyotaku
+		// seq, hno, name, kaigo, fw, kyotaku
-		fmt.Fprintf(fcsv, "%04d,%s,%s,%s,%s\n", i + 1, c, h, n, u)
+		fmt.Fprintf(fcsv, "%04d,%s,%s,%s\n", i + 1, h, n, u)
 	}
 	if err := fcsv.Close(); err != nil {
 		log.Fatal(err)
 	}
 	step_start = print_time(step_start)

Mercurial > mercurial > hgweb_golang.cgi

comparison src/kaigo/Nk/nk.go @ 42:c58172a59534