공백줄 삭제 매크로

이번엔 공백줄을 지우는 거지요, 역시나 유사합니다. 전체에서 지우는 거라서 약간 달라지긴 합니다만.

일단 매크로 코드는 아래와 같습니다.

var   LineObj: TStringList;   LineLoop: Integer;   DelBlankCount: integer;   CurrentLine: WideString; begin   LineObj := TStringList.Create;   Try     LineObj.Text := CCP_SCRIPT;     For LineLoop := LineObj.Count -1 downto 0 do     Begin       // 공백이 아닌 줄은 처리하지 않고 다음 줄로 넘어갑니다..       If Trim(LineObj[LineLoop]) <> '' Then Continue;       CC_DELETELINE(LineLoop);       DelBlankCount := DelBlankCount+1;     End;   Finally     LineObj.Free;   End; if DelBlankCount > 0 then ShowMessage('총 '+IntToStr(DelBlankCount) + ' 개의 공백 줄을 제거했습니다.'); CCP_CaretX := 0; end;

IRC에 비해서 해야할게 적기때문에 줄이 확 줄어듭니다.