参照関係を調べる時に使うルーチン Public Function RoutineImmediateStringCat(InLineString As String, OutLineString As String) As Long '*-* 即値 の文字列をヌルに書き換える Dim As String BString 'Dim As String CH22String Dim As Long IAA, IBB, iModeLong RoutineImmediateStringCat = 0 iModeLong = 0&: 'CH22String = Chr$(&H22) OutLineString = "" For IAA = 1& To Len(InLineString) BString = Mid$(InLineString, IAA, 1): IBB = Asc(BString) Select Case iModeLong Case 0& If (IBB = &H22) Then iModeLong = 10& OutLineString = OutLineString + BString Else OutLineString = OutLineString + BString End If Case 10& If (IBB = &H22) Then iModeLong = 0& OutLineString = OutLineString + BString End If End Select Next IAA End Function
