0個、1個、または複数の改行を含むstring変数の中から、最初の改行までの文字列を取り出して別の変数に格納し、取り出した分を最初の変数から削除し、なおかつ別の変数に"Exist"を格納するサブルーチンを書いていただけますか? また、最初の変数が「空っぽ」になったら、これまた別の変数に"NotExist"を格納してほしいです。
例:
strA = "AAAA[vbCrLf]BBBB[vbCrLf]CCCC"
strB = ""
strC = ""
↓
strA = "BBBB[vbCrLf]CCCC"
strB = "AAAA"
strC = "Exist"
例2:
strA = "BBBB"
strB = ""
strC = ""
↓
strA = ""
strB = "BBBB"
strc = "Exist"
例3:
strA = ""
strB = ""
strC = ""
↓
strA = ""
strB = ""
strC = "NotExist"
No.1
662
24
100pt
if strA.CompareTo("")=0 then
strB=""
strC="NotExist"
elseif strA.IndexOf(vbCrLf)>0 then
strB=strA.subString(0,strA.IndexOf(vbCrLf)-1))
strA=strA.subString(strA.IndexOf(vbCrLf),strA.Length-strA.IndexOf(vbCrLf))
strC="Exist"
else
strB=strA
strA=""
strC="Exist"
end if
22
21
1
2
ありがとうございます！