'=================================================================== '== 설명 : 문장을 해당 자릿수만큼 이 들어간 문장으로 변환 '== 이름 : MakeBr(Str,Pos) '== 변수 : Str(String),Pos(Int) '== 반환 : String '=================================================================== Function MakeBr(Str,Pos) Dim StrLen, TmpStr, i, Midcnt, Start, Surplus StrLen = len(Str) If (StrLen Mod Pos) = 0 then MidCnt = Fix(StrLen/Pos) Else MidCn..