Check Excel CSV files

21. June 2007

1

Function checkCSV(getThisFile) Const ForReading = 1 counter = 0 Dim objFSO , objTextStream , strText , strFileName, output strFileName = Server.MapPath(getThisFile) Set objFSO = Server.CreateObject('Scripting.FileSystemObject') Set objTextStream = objFSO.OpenTextFile(strFileName , ForReading , False) If not objTextStream.AtEndOfStream Then Do While not objTextStream.AtEndOfStream strText = objTextStream.ReadLine arrText = split(strText, ';', 9) if arrText(0) = Request.Form('id') then checkCSV = arrText end if counter = counter + 1 Loop End If objTextStream.Close Set objFSO = Nothing Set objTextStream = Nothing end Function

Subscribe

0 Comments

Inline Feedbacks

View all comments

Alexander

I am a full-stack developer. My expertise include:

Server, Network and Hosting Environments
Data Modeling / Import / Export
Business Logic
API Layer / Action layer / MVC
User Interfaces
User Experience
Understand what the customer and the business needs

I love programming, design and know my way around server architecture as well. I would never feel complete, with one of these missing.

I have a broad range of interests, that’s why I constantly dive into new technologies and expand my knowledge where ever required. Technologies are evolving fast and I enjoy using the latest.

Apart from that, I am a peace loving guy who tries to have people around him that think the same. I truly believe in the principle: “If you help someone, someone will help you, when you need it."

Services

Previous Next

♩
♪
♫
♬
♩
♪
♫
♬