□技術メモ - VB6 キャプション保存・再現処理

※管理人の個人的な技術メモです。このページの内容の実行結果について
管理人はいかなる責任も負いかねますのでご自身の責任でお試しください。

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

○VB6におけるキャプション保存・再現処理

CCnvCaption.cls
--------
Option Explicit

'=================================
'--> CCnvCaption 
'目的：コントロールのCaption保存用
'---- メソッド一覧
'CnvStrToLine
'CnvLineToStr
'<-- ここまで
'=================================

'Caption→Lineへ変換(キャプション保存用)
public function CnvStrToLine(psCapt as String) as String

dim saWk() as String
dim i, iLim as long
dim strRet as String

'Split→saWkに格納
saWk = Split(psCapt, vbCr)
iLim = UBound(saWk)

for i=0 to iLim
    'カンマをはさんで結合
    if i>0 then strRet = strRet & ","
    strRet = strRet & """" & saWk(i) & """"
next i
CnvStrToLine = strRet

End Function

'Line→Captionへ変換(キャプション再現用)
public function CnvLineToStr(psLine as String) as String

dim saWk() as String
dim i, iLim as long
dim strRet as String

'Split→saWkに格納
saWk = Split(psLine, ",")
iLim = UBound(saWk)

for i=0 to iLim
    'vbCrをはさんで結合
    if i>0 then strRet = strRet & vbCr
    strRet = strRet & Trim(saWk(i), """")
next i
CnvLineToStr = strRet

End Function
--------