|
uwscのコーディング内容をuwscで出力したい場合、読み込み元の内容をそのまま出力する方法が思いあたりません。お知恵をいただけないでしょうか？
ex.)
if a = "<#DBL>" then
b = b + "<#CR>"
上記のような内容のテキストをuwsc(FOPEN,FGET,FPUT)で出力した場合、
1行目はif a = """ then と出力され
2行目は
b = b + "
"
と出力されてしまいます。
現状では、テキストエディターの置換機能で読み込み元のuwsc特殊文字を別の値に変換、uwsc処理後の出力ファイルに対して変換の戻しを行うことでしか、実現できていません。
uwscのみでの実現はできないものでしょうか？
|
No.332 2019/03/30(Sat) 19:03:27
|
☆ Re: 特殊文字のままテキストに書き出す方法について / Rayna |
|
|
|
>>332 まつこり さん
Option パラメータに SpecialChar を指定すると特殊文字は変換されません
//| No332.uws |/////////////////////////////////////////
//|
Option SpecialChar
Const PATH_THIS_UWS = GET_CUR_DIR+"\"+GET_UWSC_NAME
Dim fid, sText, wid
Dim aExPrm[] = "notepad.exe", EMPTY
TextBlock tsSrc
if a = "<#DBL>" then
b = b + "<#CR>"
EndTextBlock
//| TextBlock定数 から読み込み |//
MsgBox(tsSrc)
//| 文字列リテラルで指定したものは不可 |//
Const csSrc = "b = b + <#DBL><#CR><#DBL>"
Dim vsSrc = "b = b + <#DBL><#CR><#DBL>"
MsgBox("Const csSrc: "+csSrc)
MsgBox("Dim vsSrc: "+vsSrc)
aExPrm[1] = "<#DBL>"+PATH_THIS_UWS+".txt"+"<#DBL>"
//| FGet でファイルから読み込み |//
fid = FOpen(PATH_THIS_UWS, F_READ)
sText = FGet(fid, F_ALLTEXT)
FClose(fid)
MsgBox("FGet: "+sText)
//| FPut でファイルに書き込み |//
fid = FOpen(PATH_THIS_UWS+".txt", F_WRITE)
FPut(fid, sText, F_ALLTEXT)
FClose(fid)
wid = Exec(Join(aExPrm))
While Status(wid, ST_ISID)
Sleep(0.001)
WEnd
aExPrm[1] = "<#DBL>"+PATH_THIS_UWS+".ini"+"<#DBL>"
//| WriteIni でファイルに書き込み |//
sText = Split(tsSrc, "<#CR>")[0]
WriteIni("sec", "key", sText, PATH_THIS_UWS+".ini")
wid = Exec(Join(aExPrm))
While Status(wid, ST_ISID)
Sleep(0.001)
WEnd
//| ReadIni でファイルから読み込み |//
MsgBox(ReadIni("sec", "key", PATH_THIS_UWS+".ini"))
//| デモ用に作成したファイルを削除 |//
DeleteFile(PATH_THIS_UWS+".txt")
DeleteFile(PATH_THIS_UWS+".ini")
//|
////////////////////////////////////////////////////////
---
文字列リテラルで指定したものについて追記
|
No.333 2019/03/30(Sat) 21:06:16
|
|
