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  最小的数字