|
讀入產品文字檔產品描述
張貼日期 2009/3/31 9:06:17
作者 lutuni
|
*MP0PC()
DO CASE
CASE MultiPage0.PageIndex=0
CASE MultiPage0.PageIndex=1
CASE MultiPage0.PageIndex=2
PURCSUB.GoBottom()
CASE MultiPage0.PageIndex=3
INVOSUB.GoBottom()
CASE MultiPage0.PageIndex=4
CASE MultiPage0.PageIndex=5
CASE MultiPage0.PageIndex=6
*讀入文字檔內容
IF FILE(MAIN.EDIT12.TEXT+'TXT\ITEM\TW_'+TRIM(EDIT0.TEXT)+".TXT") &&檢查以產品編號(EDIT0.TEXT)檔案名稱是否存在
MTOA(MEMOREAD(MAIN.EDIT12.TEXT+'TXT\ITEM\TW_'+TRIM(EDIT0.TEXT)+".TXT"),Memo0.Lines) &&如果存在就讀入
ELSE
MTOA(MEMOREAD(MAIN.EDIT12.TEXT+'TXT\CLEAR.TXT'),Memo0.Lines) &&如果不存在就讀入空白
ENDIF
IF FILE(MAIN.EDIT12.TEXT+'TXT\ITEM\EN_'+TRIM(EDIT0.TEXT)+".TXT")
MTOA(MEMOREAD(MAIN.EDIT12.TEXT+'TXT\ITEM\EN_'+TRIM(EDIT0.TEXT)+".TXT"),Memo1.Lines)
ELSE
MTOA(MEMOREAD(MAIN.EDIT12.TEXT+'TXT\CLEAR.TXT'),Memo1.Lines)
ENDIF
CASE MultiPage0.PageIndex=7
ASSIGN(Image1.Image,EDIT7.TEXT)
ENDCASE
*存入中文說明
External M_SEC,REMARK1
ASSIGN(REMARK1,ATOM(Memo0.Lines))
MEMOWRITE(MAIN.EDIT12.TEXT+'TXT\ITEM\TW_'+TRIM(EDIT0.TEXT)+".TXT",REMARK1)
MESSAGE('中文功能說明資料已存入..','訊息視窗',200,200)
*還原上次存檔內容
MTOA(MEMOREAD(MAIN.EDIT12.TEXT+'TXT\TW_'+TRIM(EDIT0.TEXT)+".TXT"),Memo0.Lines)
|
|