|
|
|
คุณ @w_in ช่วยนิดนึงครับ ย้อนกลับไปดูกระทู้นี้นิดนึง http://www.thaicreate.com/asp/forum/002870.html |
|
|
|
|
|
|
|
เอามาไว้ในนี้ให้เลยนะครับ
ผมลองเขียนตัดคำขึ้นมานะครับจาก textfiel ในtext มีข้อมูลแบบนี้
440865,กรกช,แจ้งเจริญ,3/11/1982
ต้องการเป็น
440865
กรช
แจ้งเจริญ
3/11/1982
โค้ดมีแบบนี้
<%
set fs = CreateObject("Scripting.FileSystemObject")
Set op = fs.OpenTextFile(Server.Mappath("data.txt"))
data=op.readline
start1=1
startposition1 = start1
endposition1 = InStr(start1,data,",")-1
field1=Mid(data,start1,endposition1)
start2=endposition1+2
endposition2=InStr(start2,data,",")
field2=Mid(data,start2,endposition2)
start3=endposition2+2
endposition3=InStr(start3,data,",")
field3=Mid(data,start3,endposition3)
start4=endposition3+2
endposition4=InStr(start4,data,",")
field4=Mid(data,start4,endposition4)
response.write field1%><br><%
response.write field2%><br><%
response.write field3%><br><%
response.write field4
response.end
%>
แต่ผลที่ได้มันกลับเป็นแบบนี้
440865
กรกช,แจ้งเจร
จ้งเจริญ,3/11/1982
เพราะอะไรเหรอครับ
|
|
|
|
|
Date :
16 ก.พ. 2548 12:40:35 |
By :
gototon |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
เฮ้อ... ไม่ต้องแล้วครับ
ฟัดไปฟัดมา
ได้แล้ว 1 เปลาะ
<%
set fs = CreateObject("Scripting.FileSystemObject")
Set op = fs.OpenTextFile(Server.Mappath("data.txt"))
data=op.readline
start1=1
startposition1 = start1
endposition1 = InStr(start1,data,",")-1
field1=Mid(data,start1,endposition1)
start2=endposition1+2
endposition2=InStr(start2,data,",")-2-endposition1
field2=Mid(data,start2,endposition2)
start3=start2+endposition2+1
endposition3=InStr(start3,data,",")-(start2 + endposition2)-1
field3=Mid(data,start3,endposition3)
start4=start3+endposition3+1
endposition4=InStr(start4,data,last)
field4=Mid(data,start4,endposition4)
response.write field1%><br><%
response.write field2%><br><%
response.write field3%><br><%
response.write field4
response.end
%>
ออกมาเป็น
440865
กรกช
แจ้งเจริญ
12/12/1983
ถามเอง ตอบเองอีกแล้วอ่ะ
|
|
|
|
|
Date :
16 ก.พ. 2548 13:52:18 |
By :
gototon |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
Load balance : Server 02
|