string - 文字列から正しいテキストを返す InStr と Left の問題

Question

Excel VBAにある IBAN/SWIFT コードをいじっていstringますが、文字列から IBAN 番号を選択したいと思います。

サンプル:
DK4520005010201483 IBAN NDEADKKKXXX
NL24ABNA0424079763 iban ABNANL2A
DE56300700100303808000 IBAN DEUTDEDD

上記の文字列は、文字列iban
Code:に保存されます。

Dim cutDownStr as String, iban as string

cutDownStr = iban
fooStr = Left(cutDownStr, (Len(cutDownStr) - InStr(cutDownStr, " ")))
MsgBox fooStr

score 2 · Accepted Answer

問題は、コードが文字列全体から IBAN の長さを切り取っていたことです。スペースを含め、IBAN の後に文字列の長さをカットする必要がありました。あなたはそれを行うことができます：

fooStr = Left(cutDownStr, (Len(cutDownStr) - (Len(cutDownStr) - InStr(cutDownStr, " "))))

score 2 · Accepted Answer

必要なのがibanの前の部分文字列だけの場合:

Sub qwerty()
  iban = "DK4520005010201483 IBAN NDEADKKKXXX"
  foostr = Split(iban, " ")(0)
  MsgBox foostr
End Sub

score 1 · Accepted Answer

関数の使用

Function findIban(iban as String)
  fooStr = split(iban," ")
  findIban = fooStr(0) 
End Function

使用法

Dim cutDownStr as String

cutDownStr = "DK4520005010201483 IBAN NDEADKKKXXX"
fooStr = findIban(cutDownStr)
MsgBox fooStr

4 に答える 4