Kirjautuminen

Haku

Tehtävät

Keskustelu: Ohjelmointikysymykset: [VB6] Teksti pätkiminen

matpit [31.12.2005 13:43:20]

#

Elikkäs nyt törmäsin semmoiseen ongelmaan että kuinka saan textboksista ulos tekstin joka on merkkien ":" ja "<" välillä?
Tällaisella koodilla olen jo yrittänyt:
If Right$(Text1.Text, 1) = "<" Then
Text1.Text = Left$(Text1.Text, Len(Text1.Text) - InStr(Text1.Text, ":"))
MsgBox Text1.Text
End If

Merri [31.12.2005 14:33:46]

# 

' moduulissa
Public Function TextBetween(ByVal Text As String, ByVal Keyword1 As String, ByVal Keyword2 As String, Optional ByVal StartPos As Long = 1, Optional ByVal Compare As VbCompareMethod = vbBinaryCompare) As String
    Dim lngA As Long, lngB As Long
    lngA = InStr(StartPos, Text, Keyword1, Compare)
    If lngA < 1 Then Exit Function
    lngB = InStr(lngA, Text, Keyword2, Compare)
    If lngB < 1 Then Exit Function
    TextBetween = Mid$(Text, lngA + 1, lngB - lngA - 1)
End Function

Käyttö:

MsgBox TextBetween(Text1.Text, "T", "1")

Vastaus

Aihe on jo aika vanha, joten et voi enää vastata siihen.

Tietoa sivustosta