VB6で左詰めと空白行削除
- VB6でテキストボックスの内容を左詰めにする方法と、空白行を削除する方法について教えてください。
- VB6の環境で、テキストボックスの内容を一括で左詰めする方法と、空白行を削除する方法についてお教えください。
- VB6で左詰めと空白行削除の動作を作成したいのですが、一括で左詰めする方法と、空白行を削除する方法がわかりません。VB6の環境での解決方法を教えてください。
- ベストアンサー
●VB6で左詰めと空白行削除
●VB6で左詰めと空白行削除 初めまして。 ご教授よろしくお願いいたします。 テキストボックスA（以下、texA）に入力された内容を テキストボックスB（以下、texB）に出力する動作を作成しているのですが texAに入力される内容が以下のように 必ず文章の左側に半角スペースが入る仕様になっています。 texA ｜￣￣￣￣￣￣￣￣￣￣￣￣￣￣｜ ｜ I "VB" We learned ｜ ｜ is very difficult! ｜ ｜__ ｜ ｜↑ ｜ ｜半角スペースが2つ入る ｜ ｜ ｜ ￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣ 一応、texAの内容を1行ずつ配列に入れ込んでTrimしてしまう方法と 左側に入る半角スペースが2つなのでReplaceで" "(半角スペース×2)を取り除く方法で 解決できたのですが(※ただし後者は文中に半角スペース×2がある場合を考えNGとしました) もしtexAの内容を丸ごと取得し、一括で左詰めできるならばと思い質問させていただきました。 また、一括で取得した場合、文の最初と最後に１行空白行が入るパターンがございます。 (※入らない場合もあると仮定、また文中にも改行が入ると仮定する) texA ｜￣￣￣￣￣￣￣￣￣￣￣￣￣￣｜ ｜ ｜←空白行 ｜ I "VB" We learned ｜ ｜ ｜←空白行 ｜ is very difficult! ｜ ｜__ ｜←空白行 ｜↑ ｜ ｜半角スペースが2つ入る ｜ ｜ ｜ ￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣ こちらの削除方法についても併せて教えていただけたらと思います。 お手数ですが、教授お願いいたします。 当方、環境はVB6、WindowsXPです。
- madoka2
- お礼率100% (2/2)
- Visual Basic
- 回答数1
- ありがとう数2
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
＞一括で左詰めできるならばと思い質問させていただきました。 一発では無理でしょう 一行づつ取り出して処理するしかないと思いますよ 以下、処理コードをコマンドボタンに割り付けています Private Sub Command1_Click() Dim AA As Variant Dim TXT As String Dim i As Long AA = Split(texA.Text, vbCrLf) texB.Text = "" For i = 0 To UBound(AA) TXT = Trim(AA(i)) If TXT <> "" Then texB.SelText = TXT & vbCrLf End If Next i End Sub
関連するQ&A
- WORDの空白
文中に空白を打ちたいのですが、行の途中だと、ちゃんと空白を打てるのに、それがちょうど行の端になった時、スペースを打っても、改行しないままどんどん桁だけが増していきます。この場合、手動で改行をしないと、空白はつくれないのでしょうか？
- 締切済み
- Windows NT・2000
- Outlook Expressの空白行の入力は
winsp2の導入後、空白行や改行が入力できなくなりました。先に「教えて！goo」でお尋ねしたところ、レジストの編集が必要とのこと、ちょっとのぞきましたが、素人には怖くて手が出せません。 マイクロソフトのページには「RFC2646 では、半角スペースなしに連続で入力された文字列をひと続きの文字列として認識し、改行などを行わないことを推奨しています。」とあり、半角スペースを入れてみましたが駄目でした。レジストを直さないで、空白行を入力入力する方法はないものでしょうか。
- ベストアンサー
- その他（メールサービス・ソフト）
- 空白の行かどうかを判定する
Ｂシェルを使用しています。 テキストを全行チェックして、空白行（半角、全角のスペースだけの行も含む）があるかを一行ずつチェックしたいのですがやり方がわかりません。 教えてください。
- 締切済み
- その他（プログラミング・開発）
- PowerPointを使っているのですが、本文の二行目になるとスペースひとつ分が空白になります
PowerPointを使っているのですが、本文の二行目になるとスペースひとつ分が空白になります。 PowerPointを使っているのですが、本文の二行目になると二行目の頭がスペースひとつ分が空白になります。 その時は文が続いています。 改行すれば二行目の頭に文字が来ます。 箇条書きの設定を外すとこうなりました。 レポートの作成中でPowerPoint自体の勉強はほとんどできてません。 どうすれば、二行目以下も行の頭に文字をもってこれるのでしょうか。 教えてください、よろしくお願いいたします。
- ベストアンサー
- その他(Windows)
- Wordで半角スペース８個分を削除したい
文章のすべての行の頭に入ってしまっている 半角８個分のスペースを一括削除する方法を探しています。 wordの置換で、半角の空白を指定して置換すると、 削除したくない文章内の半角スペースも削除されてしまいます。 これらはそのままで、頭の半角スペース８個分だけをターゲットに指定して削除する 方法はありますでしょうか？ ちなみに、インデントは左端ピッタリに寄っています。 よろしくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- 末尾の全角スペースの削除
SQL Server 2008環境です。 文字列の末尾の空白を一括して削除したくて、以下のようなクエリを書きました。 UPDATE TEST_TABLE SET NAME = REPLACE(RTRIM(REPLACE(StoreBranchName, ' ', ' ')), ' ', ' ') 全角スペースを一度半角スペースにして、RTRIMをかけた後、最後に 半角スペースを全角に直すというものです。 しかし、これだと、元々半角スペースが入っていた場合、そっちまで全角スペースに なってしまうため悩んでおります。 うまいやり方を教えていただけないでしょうか。 宜しくお願いします。
- 締切済み
- SQL Server
- 改行の後の空白を削除したい。
現在、以下の記述でテキストエリア文末の改行を自動削除しています。それにあわせて、文中の改行直後の空白（全角・半角・TAB）を削除したいと考えています。どなたか教えてください、宜しくお願い致します。 ----------------------------------------------------------------- <textarea name="○○" onblur="this.value=this.value.replace(/\n+$/g,'');">■■</textarea> -----------------------------------------------------------------
- 締切済み
- JavaScript
- 【エクセル】セル内の右側のみ半角スペース削除
セル内にある半角スペースのうち、右側にあって、文字に囲まれていないものを一括削除する方法をさがしています。 例）※␣と?は半角スペース。?のみを削除する。 列A 行1 test01??? 行2 test02␣01???? 行3 ␣test03␣114? 宜しくお願いします。
- 締切済み
- Excel（エクセル）
- 自動的に改行したときの末尾空白スペースの処理
Word 2003、Windows XP Professional SP2です。 ハイフネーションできない長い英単語（例えば、URL）が文中にありその英単語の途中で改行できないためにその英単語が自動的に次の行（第2行）に送られた場合、送られた文字数分だけ元の行（第1行）の末尾に空白ができますが、この空白の扱いに次の2通りがあるように思います。 (1)第1行の各文字と文字の間隔は広くしないで、送られた文字数分だけの空白スペースを第1行の末尾にまとめて設ける。 (2)第1行の末尾にまとめて空白は設けないで、送られた文字数分だけの空白スペースを第1行の各文字と文字の間に均等に割り振って文字と文字の間の間隔を広くする。 (1)のようになる文書と(2)のようになる文書があるのですが、これの設定の仕方が分かりません。これはどこで設定できるのでしょうか。
- ベストアンサー
- オフィス系ソフト
- PHPの空白除去
PHP5において 半角の前後空白を削除する関数trimは理解してます。 文字列中にある半角及び全角の空白を除去するには 文字列置換用の関数、例えばstr_replaceを使って置換すれば 全て空白を除去出来ます。 例： ---------------------------------- $string=" あ い う え お "; $all=" ";//全角スペース $half=" ";//半角スペース $no="";//削除用変数 $string=str_replace($all,$no,$string); $string=str_replace($half,$no,$string); ---------------------------------- 最後の2行を書けば置換が出来るのですが、問題はこの二つの関数をまとめてクラス化し、再利用したいと思っています。 クラスの作成方法及び使用方法がまだまだ理解していないので、困ってます。どなたかお力になって頂ければ幸いにございます。
- ベストアンサー
- PHP
お礼
ご回答ありがとうございます。 やはり一括処理は不可能なのですね。 一行ずつ処理するコードで進めることにします。 サンプルまで記述いただきありがとうございました。