please bare in mind these strings are from txt file.
example of the strings below from txt file that contains large text and we want to only extract these and add them to list1 can you share different methods to extract thanks.
first extraction test.
Code:
xxx.bin not found
sound.wav not found
music.bin not found
texture.bin not found
Re: Learning : How to Grab string from left or maybe right
you can use instr to test if one of those values exist in each line, you may need to add leading and/or trailing spaces to only find whole words, eg. so 1941 does not find 1941r, if instr > 0 you can add that line or part of to the listbox
Code:
if instr(ln, " 1941u ") > 0 or instr(ln, " 1941 ") > 0 or instr(ln, " 1941j ") > 0 then list1.additem ln
where ln is a single line from text file
depending on the size of the text file, you can choose to read the whole text file then split into lines, or use line input to just read the file line by line
i do my best to test code works before i post it, but sometimes am unable to do so for some reason, and usually say so if this is the case. Note code snippets posted are just that and do not include error handling that is required in real world applications, but avoid On Error Resume Next
dim all variables as required as often i have done so elsewhere in my code but only posted the relevant part
come back and mark your original post as resolved if your problem is fixed
pete
Re: Learning : How to Grab string from left or maybe right
Try this function
Code:
Private Function Find(ByVal strSearchIn As String, ByVal strSearchFor As String) As String()
Dim sI() As String
Dim sF() As String
Dim sRet() As String
Dim j As Long
Dim k As Long
Dim c As Long
sI = Split(strSearchIn, vbNewLine)
sF = Split(strSearchFor, ",")
For j = 0 To UBound(sI)
For k = 0 To UBound(sF)
If InStr(1, sI(j), sF(k), vbTextCompare) > 0 Then
ReDim Preserve sRet(c)
sRet(c) = sI(j)
c = c + 1
Exit For
End If
Next
Next
Find = sRet
End Function
Call it with your file contents and list of strings to search for, it will return list of lines contains any string you are searching for
sample usage
Code:
Dim r() As String
r = Find(Text1.Text, "1941u,1941j")' Text1 is your file contents
Text2.Text = Join(r, vbNewLine)' Text2 shows search result
Re: Learning : How to Grab string from left or maybe right
Try this new version
Code:
Private Function Find(ByVal strSearchIn As String) As String()
Dim sI() As String
Dim sF() As String
Dim sRet() As String
Dim j As Long
Dim c As Long
sI = Split(strSearchIn, vbNewLine)
For j = 0 To UBound(sI)
If InStr(1, sI(j), "|") > 0 Then
sF = Split(sI(j), "|")
ReDim Preserve sRet(c)
sRet(c) = Replace$(sF(1), vbTab, vbNullString)
c = c + 1
End If
Next
Find = sRet
End Function
Re: Learning : How to Grab string from left or maybe right
Originally Posted by 4x2y
Try this new version
Code:
Private Function Find(ByVal strSearchIn As String) As String()
Dim sI() As String
Dim sF() As String
Dim sRet() As String
Dim j As Long
Dim c As Long
sI = Split(strSearchIn, vbNewLine)
For j = 0 To UBound(sI)
If InStr(1, sI(j), "|") > 0 Then
sF = Split(sI(j), "|")
ReDim Preserve sRet(c)
sRet(c) = Replace$(sF(1), vbTab, vbNullString)
c = c + 1
End If
Next
Find = sRet
End Function
Reply With Quote
Originally Posted by doberman2002
