VB6.0用掲示板の過去のログ(No.1)−VBレスキュー(花ちゃん)
[記事リスト]
[新規投稿]
[新着記事]
[ワード検索]
[過去ログ]
[管理用]
| 投稿日 | ： 2002/11/01(Fri) 10:40 |
| 投稿者 | ： アンパンマン |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： 文字列の””を取る |
こんにちは。
CSVファイルをオープンして、一行づつ読み込んで、
Select Caseで処理をしようと思うのですが・・・
Dim iFile As String
Dim nFile As String
Dim InputData As String
Dim InputD() As String
Dim 日付 As String
iFile = App.Path & "\" & 日付 & ".csv"
nFile = FreeFile
Open iFile For Input As nFile
Do Until EOF(nFile)
Line Input #nFile, InputData
InputD = Split(InputData, ",", -1)
Select Case InputD(1)
Case Chr(34) & "日本" & Chr(34)
List3.AddItem InputD(0) & ":" & InputD(1) & ":" & "日本"
Case Chr(34) & "アメリカ" & Chr(34)
List3.AddItem InputD(0) & ":" & InputD(1) & ":" & "アメリカ"
End Select
Loop
Close #nFile
上記のInputD(1)が""日本""こんな具合にダブルコーテーションが二つ付いてしまっています。
（テキストファイルが"日本"こうなっています。）
これを何とかChr(34) で強引に同じだと認識させているのですが、
リストに表示させる時に"日本"とダブルコーテーションが付いてしまいます。
ダブルコーテーションを取る、何かいい方法は無いでしょうか？
例えば、文字列の中で、指定する文字以外を抽出するような関数とか・・・。
よろしくお願いします。
- 関連一覧ツリー
（★ をクリックするとツリー全体を一括表示します）
- 返信フォーム
（この記事に返信する場合は下記フォームから投稿して下さい）