ASP取最小数字

szjxq1 2015-08-15 11:22:21

abc.txt 文件的内容:
ALL CA C 头等 2000-1-1 2000-1-1
ALL CA F 头等 2000-1-1 2000-1-1
ALL CA A 头等 2000-1-1 2000-1-1
ALL CA D 头等 2000-1-1 2000-1-1
ALL CA Z 头等 2000-1-1 2000-1-1
ALL CA W 100 2000-1-1 2000-1-1
ALL CA P 头等 2000-1-1 2000-1-1
ALL CA E 特价 2000-1-1 2000-1-1
ALL CA S 中转 2000-1-1 2000-1-1
ALL CA T 特价 2000-1-1 2000-1-1
ALL CA Y 100 2000-1-1 2000-1-1
ALL CA B 93 2000-1-1 2000-1-1
ALL CA M 91 2000-1-1 2000-1-1
ALL CA M1 88 2000-1-1 2000-1-1
ALL CA H 83 2000-1-1 2000-1-1
ALL CA H1 81 2000-1-1 2000-1-1
ALL CA K 78 2000-1-1 2000-1-1
ALL CA K1 76 2000-1-1 2000-1-1
ALL CA L 73 2000-1-1 2000-1-1
ALL CA L1 68 2000-1-1 2000-1-1
ALL CA Q 63 2000-1-1 2000-1-1
ALL CA Q1 58 2000-1-1 2000-1-1
ALL CA G 50 2000-1-1 2000-1-1
ALL CA V 45 2000-1-1 2000-1-1
ALL CA V1 40 2000-1-1 2000-1-1
ALL CZ D 公务 2000-1-1 2000-1-1
ALL CZ S 特价 1900-1-1 1900-1-1
ALL CZ J 公务 2000-1-1 2000-1-1
ALL CZ F 头等 2000-1-1 2000-1-1
ALL CZ A 头等 2000-1-1 2000-1-1
ALL CZ P 头等 2000-1-1 2000-1-1
ALL CZ C 公务 2000-1-1 2000-1-1
ALL CZ K 中转 2000-1-1 2000-1-1
ALL CZ Q 往返 2000-1-1 2000-1-1
ALL CZ N 中转 2000-1-1 2000-1-1
ALL CZ T 特价 2000-1-1 2000-1-1
ALL CZ R 特价 2000-1-1 2000-1-1
ALL CZ Y 100 2000-1-1 2000-1-1
ALL CZ W 100 2000-1-1 2000-1-1
ALL CZ B 91 2000-1-1 2000-1-1
ALL CZ M 80 2000-1-1 2000-1-1
ALL CZ H 75 2000-1-1 2000-1-1
ALL CZ U 71 2000-1-1 2000-1-1
ALL CZ L 60 2000-1-1 2000-1-1
ALL CZ E 51 2000-1-1 2000-1-1
ALL CZ V 45 2000-1-1 2000-1-1
ALL CZ Z 40 2000-1-1 2000-1-1

<% '读取TXT文件
Set rocFSO=Server.CreateObject("Scripting.FileSystemObject")
Set rocFileObject = rocFSO.OpenTextFile(server.mappath("abc.txt"),1)
rocCont = rocFileObject.ReadAll
rocFileObject.Close
Dim rocRs
'Response.write rocCont
%>

<%
hc0000 = "2015-09-08,0810,1045,CZ,3256,J7C3D2I2O0W9S0Y4B0M0H0K4U0L0Q4E0V0Z0T0N4R0G0X0*9,T2||2:35,PEK,KOW,320,0,1,0,1,DS,^2015-09-08,1555,1840,CA,1489,F9A0O0Y9B9M9H9K9L9Q0G0S9X4N3V0U9T0E0*9,T3||2:45,PEK,KOW,73L,0,0,0,1,DS,M19V10 "
hc0001 = Split(hc0000,"^")
For i = 0 To ubound(hc0001)
hc0002 = Split(hc0001(i),",")
For m = 0 To ubound(hc0002)
Next
airlink = hc0002(3) '二字代码
EtCw8888 = Trim(hc0002(5)) '单数仓位
EtCw8889 = Trim(hc0002(15)) '两位仓位
EtCw8888 = Split(EtCw8888,"*")(0)
Et01c83 = ""
For m = 1 To Len(EtCw8888) Step 2
Et01c83 = Et01c83 & Mid(EtCw8888, m, 1) & ","
Next
For m = 1 To Len(EtCw8889) Step 3
Et01c82 = Et01c82 & Mid(EtCw8889, m, 2) & ","
Next
Et01c83 = Et01c83&""&Et01c82
Et01c83 = Trim(mid(Et01c83,1,len(Et01c83)-1))

Et01c83 = Split(Et01c83,",")
For k = 0 To ubound(Et01c83)
If InStr(rocCont,"ALL "&airlink&" "&Et01c83(k)&" ") > 0 Then '去程
EtCwJg = Split(Split(rocCont,HcStatus1&" "&airlink&" "&Et01c83(k)&" ")(1)," ")(0)
EtCwJg = Replace(EtCwJg,"头等","9999")
EtCwJg = Replace(EtCwJg,"特价","9999")
EtCwJg = Replace(EtCwJg,"往返","9999")
EtCwJg = Replace(EtCwJg,"中转","9999")
EtCwJg = Replace(EtCwJg,"公务","9999")
End If
Response.write EtCwJg(0) &"<br>"
Next
Next
%>

我想得到 EtCwJg 最小的数字

...全文
73 回复 打赏 收藏 转发到动态 举报
写回复
用AI写文章
回复
切换为时间正序
请发表友善的回复…
发表回复

28,398

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧