php

open "文件名" for input as #1
dim strline as string
dim strtext as string
do until eof(1)
    line input #1,strline
    strtext=strtext+vbcrlf+strline
loop
close #1