The Forum has been Updated
The code has been upgraded to the latest .NET core version. Please check instructions in the Community Announcements about migrating your account.
I want to extract just mp3 files from a playlist using FSO. I thought this would do it, but it returns all lines. Any clue?
Code:
<%
dim objFSO
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Const FSOForReading = 1
Dim objTextStream
Set objTextStream = objFSO.OpenTextFile("c:\Playlist.m3u", FSOForReading)
Do while not objTextStream.AtEndOfStream
if instr(objTextStream.ReadLine, ".mp3") then
Response.Write objTextStream.ReadLine & "<br>"
end if
Loop
objTextStream.Close
set objTextStream = Nothing
%>
Postet den
I think the correct way to test for a InStr match is to check if it returns a value > 0.
Postet den
What Rui said and i don't know if you can check the line like that.
Try this if you haven't got it working yet
Try this if you haven't got it working yet
Code:
<%
dim objFSO
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Const FSOForReading = 1
Dim objTextStream
Set objTextStream = objFSO.OpenTextFile("c:\Playlist.m3u", FSOForReading)
dim tmpStr
Do while not objTextStream.AtEndOfStream
tmpStr = trim(objTextStream.Readline)
if instr(tmpStr,".mp3") > 0 then
Response.Write tmpStr & "<br>"
end if
Loop
objTextStream.Close
set objTextStream = Nothing
%>
Postet den
Apparently the necessary ingredient was trimming the string. It works with/without a comparison to > 0 as long as it's trimmed first. Thanks.
Postet den
yep default comparison for inStr is binary. Just looked it up 
.
I trim all text out of habit. Been burned too many times by not using it.
.
I trim all text out of habit. Been burned too many times by not using it
.