Microsoft.AspNetCore.Mvc.Localization.LocalizedHtmlStringFSO ReadLine and Instr

FSO ReadLine and Instr

Printed from: Snitz™ Forums 2000
URL: https://forum.snitz.com/forumTopic/Posts/69096?pagenum=1
Printed on: 05 November 2025, 09:24

Topic

Author : Carefree
Subject : FSO ReadLine and Instr
Posted : 26 December 2009, 00:53
Message :

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 
%>

Replies ...

Reply Author: ruirib
Replied on: 26 December 2009, 08:26
Message:

I think the correct way to test for a InStr match is to check if it returns a value > 0.

Reply Author: cripto9t
Replied on: 26 December 2009, 12:02
Message:

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

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 
%>

Reply Author: Carefree
Replied on: 26 December 2009, 12:33
Message:

Apparently the necessary ingredient was trimming the string. It works with/without a comparison to > 0 as long as it's trimmed first. Thanks.

Reply Author: cripto9t
Replied on: 26 December 2009, 15:34
Message:

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