• ベストアンサー

VBでテキストボックスの重複行削除

テキストボックスのチェンジイベントでテキストボックスに貼り付けた複数行のデータに 重複行があればその行を消したいのですがうまくいきません。 良い方法があればご教示下さい。 例) 1111 2222 1111 3333 4444 ↓↓ 1111 2222 3333 4444

質問者が選んだベストアンサー

  • ベストアンサー
  • n-jun
  • ベストアンサー率33% (959/2873)
回答No.1

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged Dim ArrayList As New ArrayList For Each st As String In TextBox1.Lines If ArrayList.IndexOf(st) < 0 Then ArrayList.Add(st) Next TextBox1.Text = Join(ArrayList.ToArray(), vbCrLf) End Sub こんな感じかな？

red0176
質問者

お礼

完璧です！！ありがとうございました！！

  1. カテゴリ
  2. [技術者向] コンピューター
  3. プログラミング・開発
  4. Visual Basic

関連するQ&A

  • 【VB6】複数行のテキストボックスの改行

    お世話になります。 VB6で、複数行入力出来るテキストボックスを作成しました。 そのテキストボックスの横幅は、最大30文字（60byte）まで入力出来ます。 ですが、あくまでフォーム上で伸縮させていた為、中途半端に折り返しされます。 【例】 iiiiiiiiiijjjjjjjjjjiiiiiiiiiijjjjjjjjjjiiiiiiiiiijjjあ jjjjjjj （↑計62バイトなので、本来であれば2行目に改行されてしまったjjjjjjjの左5文字を1行目に表示させたい） その行は特定のバイトを超えたらその場で強制的に改行！というソースを追加したいです。 その為には、常にテキストボックスの入力バイト数を監視するようにしなければならないと思いますが、なるべく動作や容量が重くならないような方法はありますでしょうか？

  • 複数テキストファイルの内容を、一括で重複行の削除がしたい

    複数のテキストファイルの内容で重複する行を、一括削除をするのに便利なツールはありますでしょうか？ 色々と探しても一括でしてくれるソフトが見当たりません。 どなたか教えていただければ幸いです。 例）以下のようなテキストファイル内容が複数あって・・ あああ いい かかか ううううう いい ええええ 　↓↓　　実行すると・・ あああ いい かかか ううううう ええええ 重複した一方のみ残すというイメージです。

  • 複数行選択のテキストボックス

    テキストボックスで複数行入力可能にしたのですが、1行づつセルへの抜き出しは出来るのでしょうか？ 初心者なので、簡単に出来る方法を探しています。

  • テキストの重複する行をすべて削除する方法

    テキストの重複した行をすべて削除する方法を探しています 例 あああ あああ いいい ううう ↓削除後 いいい ううう ソフトを使用する場合はフリーの物でお願いします。 使用しているPCはwin7の32bitです。 既に持っているフリーウェアはBigEditとoeditです。

  • 重複　があれば削除して１つに

    http://oshiete1.goo.ne.jp/qa4510771.html の族編です。 エクセルの１列の縦長いデータを抽出して １行の横長いカンマ区切りのテキストにしたいのですが、 エクセルの縦１列をコピペでワードにテキストで貼り付け そこから改行を置き換え削除で横並び１列になったのですが 重複する文字が複数あったので、重複分を削除して１つだけに残したいのです。 エクセルデータは変更してはいけないので、コピーしかできません。別のエクセルにならコピーしてもかまいません。 手作業では大変な作業ですので、簡単で単純な方法を教えて下さい。 ********************************** aaa　　←　エクセルの縦列のデータ bbb　　← ccc aaa ddd bbb ↓ aaa,bbb,ccc,ddd こんな風に重複分だけ削除して１行カンマテキストにしたいのです。 <(_ _)>

  • テキストボックスの表示方法

    こんばんは。 Windows形アプリケーションをVB2008(vb.net)で開発してます。 今回はテキストボックスについて教えていただきたいと思います。 テキストファイルを読み込み、テキストボックスに表示させるプログラムがあります。 テキストファイルは1行の場合と複数行の場合があります。 従いまして、テキストボックスのMultilineをTrueにしてます。 ところがテキストファイルが1行のとき、自動的に行が折り返されて、 複数行あるかのように表示されます。 これをなんとか回避して、1行で表示できる方法はありますでしょうか？ もちろん複数行の場合は、きちんと複数行を表示です。 可能でしょうか？

  • テキストファイルの重複行を削除できますか？

    テキストファイルを読み込んだ際に重複行を削除する 事とかって出来ますでしょうか？？ そういう削除関数みたいなのがないんですよね。。。。 C言語って.......

  • VB6 複数行のテキストをリストへ出力

    VB6 でTextBoxのMultiLineをTrueにして複数行にしてあります。 このテキストのデータをリストへ表示させたいのですが、方法が分かりません。 コマンドクリックイベントへ試しに List1.AddItem Text1.Lines(0) などやってみたのですがエラーしてしまします。 LinesはVB6では使用できないのでしょうか？？ ご教授願います。

  • ＶＢ２００５　テキストボックスの最大入力値設定について

    いつもお世話になっております。 ＶＢ２００５のテキストボックスで、全角半角入り混じっての 最大３０バイトまで入力可能にしたいのですが、現在ある MaxLengthプロパティではうまく制御ができません。 テキストのロストフォーカスや、チェンジイベント時に チェックする以外に方法はないのでしょうか。 何かもっといい方法があれば教えて頂きたいのですが・・・。 どうか宜しくお願いいたします。

  • テキストボックスでの行の認識

    テキストボックスで２行以上入力不可にしたいんですが、方法が分かりません。 単に改行を含むのならEnterキーの２回目を押せなくすればいいのですが、テキストボックスって端までいくと自動的に２行になりますよね。この場合は改行コードが入ってないんです。だから単純にEnterキーの制御だけでは出来ないんです。 なにか良き方法が有れば教えていただけないでしょうか？

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する