hzylyl2402的专栏

从字符串inString中取出在字符串sSpecString与nSpecString之间的子串 Function getSpecString(inString As String, sSpecString As String, nSpecString As String) As StringDim subString As StringDim sIndex As LongDim nIndex A...

每筆記錄以一行表示,每筆記錄的欄位已"@"符號區分.每個欄位的長度皆有其最長的限制.且欄位的定義是以區隔符號位置計算,若該記錄於某欄位後放置分行符號,則其後未填入的欄位以空值填入. 'content 一行记录内容 'contents 全部记录内容数组 'i contents动态数组的长度 Dim content As StringDim contents() As StringDim i ...