□投稿者/ 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「(株)」(両カッコが半角)
です。
|
|