4コメント1KB

テキスト改行

■ このスレッドは過去ログ倉庫に格納されています

0001名無しさん＠お腹いっぱい。

NGNG

VB4.0にて、
Form1とCommand1とText1があるとします。
Text1のテキストは文字（何でも結構です）が入力されているとします。
Command1をクリックすると、Text1の（例えば）3行目の4文字目の後ろで改行したり、任意の文字を入力するには、
どのようにすればよいでしょう？
変数などは適当にお願いします。

0002名無しさん＠お腹いっぱい。

NGNG

なにいってんのかよくわかんないけど、
Text1.Text = Left$(Text1.Text＠｀ 3) + vbCrLf + Mid$(Text1.Text＠｀ 4)
とかでいいんじゃない？
まとはずれ？

0003名無しさん＠お腹いっぱい。

NGNG

with Edit1 do
begin
lpos := Perform(EM_LINEINDEX＠｀ 3＠｀ 0);
sellength := 0;
selstart := lpos + 4;
seltext := #0c#0a;
end;

あーDelphiやっててよかった。

0004名無しさん＠お腹いっぱい。

NGNG

2chって便利だな。プログラムが自動生成されて出てくる。
全角文字のコメントはフィルタでカットすればいいし。

■ このスレッドは過去ログ倉庫に格納されています