開発マイルストーン  Version 1.12

モジュール名：M23_FIL_FileProc ファイル入出力処理 ■■■■■■■■■■■■■■■■■■■■■■■■■■■■ 【モジュール】:ファイル入出力モジュール 【 概 要 】:ファイル入出力処理 【 作 成 者 】: zudajijp 【 作 成 日 】: 2007/06/20 【 特記事項 】: ■■■■■■■■■■■■■■■■■■■■■■■■■■■■ 　　一覧へ  プロシジャー一覧 　プロシジャー名　 　概要　 FIL_MemberListSet 【機能】：担当者リストに担当者を追加 FIL_MemberListGet 【機能】：担当者リスト取得 FIL_CsvFormSet 【機能】：ファイルの区切り文字をセット FIL_CsvFormGet 【機能】：ファイルの区切り文字を取得 FIL_PeriodSet 【機能】：ファイル出力期間抽出情報セット FIL_AllMemberSet 【機能】：ListBox「List_MemberSel」に全担当をセット FIL_MemberCheck 【機能】：担当者をチェック FIL_SetFreeFile 【機能】： FIL_FilePutNameGet 【機能】：出力ファイル名取得 FIL_FilePutProc 【機能】：CSV形式のファイルを出力する FIL_FilePut 【機能】：条件に従ってCSV形式のデータを出力 FIL_InputMethodSet 【機能】：ファイル入力方法セット FIL_FileGetNameGet 【機能】：入力ファイル名取得 FIL_FileGetProc 【機能】：CSV形式のファイルから入力する FIL_FileCheck 【機能】：「スケジュール」シートのタイトルとファイル内容を比較 FIL_FileInput 【機能】：「スケジュール」シートの該当セルにファイル内容を入力 FIL_ExistLineGet 【機能】：「スケジュール」シートから既存行を取得する FIL_FileInput_Exist 【機能】：「スケジュール」シートの既存行に対し、該当セルにファイル内容を入力  プロシジャー記述書 　関数名　 　FIL_MemberListSet　 概要 【機能】：担当者リストに担当者を追加 処理 配列「担当者一覧」に担当者を追加する(Nameが空白の場合は配列クリア) 形式 Sub FIL_MemberListSet(Name As String) 可視性 パブリック 引数 Name String 担当者 　関数名　 　FIL_MemberListGet　 概要 【機能】：担当者リスト取得 処理 配列「担当者一覧」からリスト取得 形式 Sub FIL_MemberListGet(List As Variant, num As Integer) 可視性 パブリック 引数 List Variant 担当者 num Integer 　関数名　 　FIL_CsvFormSet　 概要 【機能】：ファイルの区切り文字をセット 処理 ファイルの区切り文字をセット 形式 Sub FIL_CsvFormSet(flg As Boolean) 可視性 パブリック 引数 flg Boolean True[Tab],False[,] 　関数名　 　FIL_CsvFormGet　 概要 【機能】：ファイルの区切り文字を取得 処理 ファイルの区切り文字を取得 形式 Function FIL_CsvFormGet() As String 可視性 パブリック 引数 なし 戻り値 String 　関数名　 　FIL_PeriodSet　 概要 【機能】：ファイル出力期間抽出情報セット 処理 ファイル出力期間抽出フラグ、開始日、終了日をセットする 形式 Sub FIL_PeriodSet(flg As Boolean, st As String, ed As String) 可視性 パブリック 引数 flg Boolean ファイル出力期間抽出フラグ st String ファイル出力期間抽出開始日 ed String ファイル出力期間抽出終了日 　関数名　 　FIL_AllMemberSet　 概要 【機能】：ListBox「List_MemberSel」に全担当をセット 処理 「スケジュール」シートの担当者を全て抽出し、ListBox「List_MemberSel」にセットする 形式 Sub FIL_AllMemberSet() 可視性 パブリック 引数 なし 　関数名　 　FIL_MemberCheck　 概要 【機能】：担当者をチェック 処理 配列「担当者一覧」にNameが存在するかチェックする 形式 Function FIL_MemberCheck(Name As String) As Boolean 可視性 パブリック 引数 Name String 担当者 戻り値 Boolean [True]:担当者一覧にある、[False]:ない 　関数名　 　FIL_SetFreeFile　 概要 【機能】： 処理 -------------------------------------------------------- 形式 Sub FIL_SetFreeFile() 可視性 パブリック 引数 なし 　関数名　 　FIL_FilePutNameGet　 概要 【機能】：出力ファイル名取得 処理 形式 Function FIL_FilePutNameGet(fname As String) As String 可視性 パブリック 引数 fname String 初期表示ファイル名 戻り値 String ファイル名 　関数名　 　FIL_FilePutProc　 概要 【機能】：CSV形式のファイルを出力する 処理 �@「ファイル出力選択画面」表示 �Aファイル選択(標準フォーム) �Bファイルオープン �C「ファイル出力処理」実行 �Dファイルクローズ 形式 Sub FIL_FilePutProc() 可視性 パブリック 引数 なし 　関数名　 　FIL_FilePut　 概要 【機能】：条件に従ってCSV形式のデータを出力 処理 �@「スケジュール」シートの項目(項目,開始日,終了日など)から出力用文字列(CSV形式)作成 �A条件「担当者」「期間抽出」に従ってファイルに出力 形式 Sub FIL_FilePut() 可視性 パブリック 引数 なし 　関数名　 　FIL_InputMethodSet　 概要 【機能】：ファイル入力方法セット 処理 ファイル入力方法をセットする 形式 Sub FIL_InputMethodSet(flg As Integer, order As Boolean) 可視性 パブリック 引数 flg Integer [0]:新規作成、[1]:既存上書き order Boolean [True]:並べ替え、[False]:そのまま 　関数名　 　FIL_FileGetNameGet　 概要 【機能】：入力ファイル名取得 処理 形式 Function FIL_FileGetNameGet(form As String, filter As String, multi As Boolean) As Variant 可視性 パブリック 引数 form String filter String フィルタ名 multi Boolean 戻り値 Variant ファイル名 　関数名　 　FIL_FileGetProc　 概要 【機能】：CSV形式のファイルから入力する 処理 �@ファイル選択(標準フォーム) �A「ファイル入力選択画面」表示　※複数選択可 �B「FNC_ChartAllDel」実行 �Cファイル数分以下実行 ・ファイルオープン ・「ファイル入力処理(_既存上書き)」実行 ・ファイルクローズ �D「TSK_BaseDateMake」実行 形式 Sub FIL_FileGetProc() 可視性 パブリック 引数 なし 　関数名　 　FIL_FileCheck　 概要 【機能】：「スケジュール」シートのタイトルとファイル内容を比較 処理 �@レコードを読み込む �ALineInputよりタブを探しCSV→項目分割させる �B「スケジュール」シートのタイトルとファイル内容を比較(違う場合は異常終了) 形式 Function FIL_FileCheck() As Integer 可視性 パブリック 引数 なし 戻り値 Integer [0]:正常、[-1]:異常 　関数名　 　FIL_FileInput　 概要 【機能】：「スケジュール」シートの該当セルにファイル内容を入力 処理 �@レコードを読み込む �ALineInputよりタブを探しCSV→項目分割させる �B「スケジュール」シートの該当セルにファイル内容を入力(配列渡し) �C色設定、コメント設定 形式 Function FIL_FileInput() As Integer 可視性 パブリック 引数 なし 戻り値 Integer [0]:正常、[-1]:異常 　関数名　 　FIL_ExistLineGet　 概要 【機能】：「スケジュール」シートから既存行を取得する 処理 「スケジュール」シートから条件に一致する行を取得する 形式 Function FIL_ExistLineGet(n1 As String, n2 As String, N3 As String, N4 As String, N5 As String) As Long 可視性 パブリック 引数 n1 String 大項目 n2 String 中項目 N3 String 項番 N4 String 項目 N5 String 担当 戻り値 Long [0]:一致なし、[0以外]:一致行番号 　関数名　 　FIL_FileInput_Exist　 概要 【機能】：「スケジュール」シートの既存行に対し、該当セルにファイル内容を入力 処理 �@レコードを読み込む �ALineInputよりタブを探しCSV→項目分割させる �B「ファイル入力_既存行取得」を実行し、同一タスクがあれば�C�Dを実行 �C「スケジュール」シートの該当セルにファイル内容を入力(配列渡し) �D色設定、コメント設定 形式 Function FIL_FileInput_Exist() As Integer 可視性 パブリック 引数 なし 戻り値 Integer [0]:正常、[-1]:異常

Copyright (c) 2007-2009 zudajijp. All Rights Reserved.