达达和京东到家合并:通用截取函数

来源：百度文库编辑：九乡新闻网时间：2024/10/06 00:54:01

Function strCut(strContent, StrStart, StrEnd) As String '通用截取函数
Dim strHtml, S1, S2 As String
strHtml = strContent
On Error Resume Next

S1 = InStr(strHtml, StrStart) + Len(StrStart)
S2 = InStr(S1, strHtml, StrEnd)
strCut = Mid(strHtml, S1, S2 - S1)

End Function

Private Sub Form_Load()
Dim hunzi1, hunzi2 As String
hunzi1 = "this is title"
hunzi2 = strCut(hunzi1, "", "")
MsgBox hunzi2
End Sub

通用截取函数同花顺编写指标的常用通用函数同花顺软件编写指标的常用通用函数021 javascript实现通用表单验证函数 - Sandy交流区 - CSDNBlog 同花顺软件编写指标的常用通用函数屏幕截取轻松截取精彩电影片段屏幕截取技巧：屏幕截取招招看屏幕截取招招看怎样截取视频片段？屏幕截取方法怎样截取视频片段？视频切割、截取及合并视频切割、截取及合并视频切割、截取及合并------- 视频切割、截取及合并视频切割、.截取及合并视频切割、截取及合并函数与函数指针 COUPDAYBS 函数 (财务函数) COUPDAYS 函数(财务函数) DDB函数(函数) 视频切割、截取及合并a