C# と VB.NET の質問掲示板

わんくま同盟

ASP.NET、C++/CLI、Java 何でもどうぞ

C# と VB.NET の入門サイト


(過去ログ 31 を表示中)
■15225 / )  文字列削除について
□投稿者/ HappyLove (1回)-(2008/03/07(Fri) 13:40:36)

分類:[VB.NET/VB2005] 

VB.NET2003を使用しています。プログラムの勉強はまだ2ヶ月です。

 「会社名」
 ○○株式会社
 △△(株)
 梶栫栫
 (株)×××
 株式会社 ○○○

↑分かりにくいかもしれませんが、エクセルのある列に「会社名」の列があって、
 いくつか会社名が載っています。
 この会社名を1行ずつセルから取得した時に、前カブ・後カブ(/株式会社)がある場合は、
 これを除いて会社名を表示する、という方法が思い浮かびません。

 ※エクセルシートを指定する等の記述は省略しています。
 For iRow = 4 To oSheet.Cells.SpecialCells(Excel.XlCellType.xlCellTypeLastCell).Row  
   Dim strCompanyName As String '会社名
    
   strCompanyName = DirectCast(oSheet.Range("D" & iRow).Value, String) 'セルから会社名を取得
    
   Debug.WriteLine("会社名:" & strCompanyName) ←ここで会社名を表示するときに、前カブ・後カブを除外したものを表示したい
 Next

 上記のコードの中に、strCompanyNameで「trim」「Replace」「Remove」など考えたのですが、どう組み立てたらよいかわかりません。
 どなたかお教えくださいませんか。よろしくお願い致します。

 ちなみに省きたい文字列の考えられるパターンは、
   @「株式会社」
   A「梶v(記号一文字)
   B「(株)」(両カッコが全角)
   C「(株)」(後ろカッコが半角)
   D「(株)」(前カッコが半角)
   E「(株)」(両カッコが半角)
                      です。

 


返信 編集キー/


管理者用

- Child Tree -