怎样将asp字符串数组转化成整数，并计算

iefus 2009-11-03 02:31:16
我的theMat和theMat1是两个数组，里面是一个字符串用split（）转换成字符数组之后的值。比如我的字符串是1，2，3，4
我用split，逗号为分隔符，把这个字符串转成了数组，放在theMat和theMat1中
现在我想让他们计算，比如1放进了theMat，2放进了theMat1。我用下面的代码怎么出错了呢 :类型不匹配: 'CInt'



Dim Mat(5)

Mat(0)=CInt(theMat)*CInt(theMat1)
...全文
649 14 打赏 收藏 转发到动态 举报
写回复
用AI写文章
14 条回复
切换为时间正序
请发表友善的回复…
发表回复
iefus 2009-11-08
  • 打赏
  • 举报
 回复
upupupupup
iefus 2009-11-04
  • 打赏
  • 举报
 回复
[Quote=引用 11 楼 zyh_bm 的回复:]
你要计算什么，
Dim Mat(5)
Mat(0)=CInt(theMat)*CInt(theMat1)

themat是数组 当然不可以cint了，如果你要得出themat数组长度可以用ubound(themat)+1来确定
[/Quote]




 arrayMultip(I,J)=arrayMultip(I,J)+CInt(theMat(I,K))*CInt(theMat1(K,J))

计算这个，theMat和theMat1里有数字，我想让他们做乘法，存到另一个数组里。但是theMat和theMat1里面存的是字符串，所以不知道怎么运算
zyh_bm 2009-11-04
  • 打赏
  • 举报
 回复
你要计算什么，
Dim Mat(5)
Mat(0)=CInt(theMat)*CInt(theMat1)

themat是数组 当然不可以cint了，如果你要得出themat数组长度可以用ubound(themat)+1来确定
iefus 2009-11-04
  • 打赏
  • 举报
 回复
up
iefus 2009-11-03
  • 打赏
  • 举报
 回复
有谁知道该怎么解决么？？
iefus 2009-11-03
  • 打赏
  • 举报
 回复
[Quote=引用 6 楼 dogfish 的回复:]
看了你的代码。
那些R，C，R2在那里定义的？
[/Quote]

matrix.asp开始地方定义的，这些是表示行列式的行列号：
R C结果行列式的行号，列号
R1 C1参与运算的第一个矩阵的行列号
R2 C2参与运算的第二个矩阵的行列号

我现在的问题就是一二楼说的那样，数组里存了数字字符串，怎样用他们做算术运算
wei_june 2009-11-03
  • 打赏
  • 举报
 回复
u
Dogfish 2009-11-03
  • 打赏
  • 举报
 回复
看错了。sorry
Dogfish 2009-11-03
  • 打赏
  • 举报
 回复
看了你的代码。
那些R，C，R2在那里定义的？
iefus 2009-11-03
  • 打赏
  • 举报
 回复
那是举得一个例子，下面是对应的代码
刚开始是这样的arrayMultip(I,J)=arrayMultip(I,J)+CInt(theMat(I,K))*CInt(theMat1(K,J))
报错又改了


Dim arrayMultip(5,5)

     For I=0 To R-1

        For J=0 To C-1

            For K=0 To R2

               a=CInt(theMat(I,K))

               b=CInt(theMat1(K,J))

               Sum=arrayMultip(I,J)

               arrayMultip(I,J)=Sum+a*b

            Next

         Next

     Next
lzp4881 2009-11-03
  • 打赏
  • 举报
 回复
Dim Mat(5)
Mat(0)=CInt(theMat)*CInt(theMat1)

theMat和theMat1既然是数组，得有下标啊,不然怎么取得到值?
iefus 2009-11-03
  • 打赏
  • 举报
 回复
这是matix.asp，在输入里面，我的第一个矩阵存放的文本框name都是textfield，然后再这个代码里，获得文本框内容，再转换成数组。
这样，两个在文本框中输入的矩阵就放在了两个数组theMat,theMat1中，然后我再用他们计算举证乘法，结果存在第三个举证，前面都好了，现在就是矩阵计算并存在第三个矩阵有问题


<%

Dim I,J,R1,R2,C1,C2,R,C     '三个矩阵的行列号，IJ为后面用到的变量

Dim Str,Str1

C1=0

C2=0

R1=1

R2=1





Str=Trim(Request ("textfield"))   '取得第一个矩阵的行列号

Arry=Split(Str,",")

For I = LBound(Arry) To UBound(Arry)

   If Trim(Arry(I))<>"" Then

	  If I<5 Then 

	   C1=C1+1

	  Else  If (I mod 5)=0 Then

	    R1=R1+1

		End If

	 End If

   End If

Next







Str1=Trim(Request ("textfield1"))          '取得第二个矩阵的行列号

Arry=Split(Str1,",")

For I = LBound(Arry) To UBound(Arry)

   If Trim(Arry(I))<>"" Then

   If I<5 Then 

	   C2=C2+1

	  Else If (I mod 5)=0  Then

	    R2=R2+1

		End If

	 End If

   End If

Next

R=R1

C=C2

''''''''''''''''''''''''''''''''''''''''''矩阵乘法

 Dim theMat,theMat1       

	theMat=arrayMat()

	theMat1=arrayMat1()

 Dim  Sum,a,b

 Dim arrayMultip(5,5)

     For I=0 To R-1

		For J=0 To C-1

			For K=0 To R2

			   a=CInt(theMat(I,K))

			   b=CInt(theMat1(K,J))

			   Sum=arrayMultip(I,J)

			   arrayMultip(I,J)=Sum+a*b

			Next

		 Next

	 Next

%>

<form name="form1" method="post" action="">

  <table width="200" height="200" border="0" align="center" cellpadding="0" cellspacing="0">

    <tr align="center" valign="middle"> 

      <td> 

        <input name="textfield" type="text" id="textfield" value="<%=arrayMultip(0,0)%>" size="3"></td>

      <td> 

        <input name="textfield2" type="text" id="textfield2" value="" size="3"></td>

      <td> 

        <input name="textfield3" type="text" id="textfield3" value="" size="3"></td>

      <td> 

        <input name="textfield4" type="text" id="textfield4" value="" size="3"></td>

      <td> 

        <input name="textfield5" type="text" id="textfield5" value="" size="3"></td>

    </tr>

    <tr align="center" valign="middle"> 

      <td> 

        <input name="textfield6" type="text" id="textfield6" value="" size="3"></td>

      <td> 

        <input name="textfield7" type="text" id="textfield7" value="" size="3"></td>

      <td> 

        <input name="textfield8" type="text" id="textfield8" value="" size="3"></td>

      <td> 

        <input name="textfield9" type="text" id="textfield9" value="" size="3"></td>

      <td> 

        <input name="textfield10" type="text" id="textfield10" value="" size="3"></td>

    </tr>

    <tr align="center" valign="middle"> 

      <td> 

        <input name="textfield11" type="text" id="textfield11" value="" size="3">

      </td>

      <td> 

        <input name="textfield112" type="text" id="textfield112" value="" size="3"></td>

      <td> 

        <input name="textfield13" type="text" id="textfield13" value="" size="3"></td>

      <td> 

        <input name="textfield14" type="text" id="textfield14" value="" size="3"></td>

      <td> 

        <input name="textfield15" type="text" id="textfield15" value="" size="3"></td>

    </tr>

    <tr align="center" valign="middle"> 

      <td> 

        <input name="textfield16" type="text" id="textfield16" value="" size="3"></td>

      <td> 

        <input name="textfield17" type="text" id="textfield17" value="" size="3"></td>

      <td> 

        <input name="textfield20" type="text" id="textfield20" value="" size="3"></td>

      <td> 

        <input name="textfield22" type="text" id="textfield22" value="" size="3"></td>

      <td> 

        <input name="textfield24" type="text" id="textfield24" value="" size="3"></td>

    </tr>

    <tr align="center" valign="middle"> 

      <td> 

        <input name="textfield19" type="text" id="textfield19" value="" size="3"></td>

      <td> 

        <input name="textfield18" type="text" id="textfield18" value="" size="3"></td>

      <td> 

        <input name="textfield21" type="text" id="textfield21" value="" size="3"></td>

      <td> 

        <input name="textfield23" type="text" id="textfield23" value="" size="3"></td>

      <td> 

        <input name="textfield25" type="text" id="textfield25" value="" size="3"></td>

    </tr>

  </table>

</form>

<%

   Function arrayMat()             '初始化第一个矩阵

       Dim arrayTemp(5,5)       '??????????????????????????????????

	   Str=Trim(Request ("textfield"))       

       Arry=Split(Str,",")                       

	   Dim K                   '矩阵一维数组号

	   K=0

	 For I=0 To R1-1

	    For J=0 To C1-1

		  Do While(arrayTemp(I,J)="") '若矩阵为空，说明表格中对应位置没有内容

				     arrayTemp(I,J)=Arry(K)    '则下一个文本框

					 K=K+1

		  Loop		  

	    Next

     Next

	 arrayMat=arrayTemp

   End Function 

   

   Function arrayMat1()             '初始化第二个矩阵

       Dim arrayTemp1(5,5)

	   Str1=Trim(Request ("textfield1"))       

       Arry=Split(Str1,",")                       

	   Dim K                  '矩阵一维数组号

	   K=0

	 For I=0 To R2-1

	    For J=0 To C2-1

		   Do While(arrayTemp1(I,J)="")

				     arrayTemp1(I,J)=Arry(K)

					 K=K+1		  

		   Loop

	    Next

     Next

	 arrayMat1=arrayTemp1

   End Function 

%>
iefus 2009-11-03
  • 打赏
  • 举报
 回复
我做的矩阵乘法
这是matrix_input.asp
这里面有两个5*5的表格，可以输入两个矩阵，按确定后提交给matrix.asp


<form name="form1" method="post" action="matrix.asp">

  <table width="737" height="205" border="0" align="center" cellpadding="0" cellspacing="0">

    <tr align="center" valign="middle"> 

      <td width="53"> 

        <input name="textfield" type="text" id="textfield" value="" size="3"></td>

      <td width="53"> <input name="textfield" type="text" id="textfield2" value="" size="3"></td>

      <td width="53"> 

        <input name="textfield" type="text" id="textfield" value="" size="3"></td>

      <td width="53"> 

        <input name="textfield" type="text" id="textfield" value="" size="3"></td>

      <td width="53"> 

        <input name="textfield" type="text" id="textfield" value="" size="3"></td>

      <td colspan="2" rowspan="5">X</td>

      <td width="53"> 

        <input name="textfield1" type="text" id="textfield1" value="" size="3"></td>

      <td width="53"> 

        <input name="textfield1" type="text" id="textfield1" value="" size="3"></td>

      <td width="53"> 

        <input name="textfield1" type="text" id="textfield1" value="" size="3"></td>

      <td width="53"> 

        <input name="textfield1" type="text" id="textfield1" value="" size="3"></td>

      <td width="53"> 

        <input name="textfield1" type="text" id="textfield1" value="" size="3"></td>

    </tr>

    <tr align="center" valign="middle"> 

      <td> 

        <input name="textfield" type="text" id="textfield" value="" size="3"></td>

      <td> 

        <input name="textfield" type="text" id="textfield" value="" size="3"></td>

      <td> 

        <input name="textfield" type="text" id="textfield" value="" size="3"></td>

      <td> 

        <input name="textfield" type="text" id="textfield" value="" size="3"></td>

      <td> 

        <input name="textfield" type="text" id="textfield" value="" size="3"></td>

      <td> 

        <input name="textfield1" type="text" id="textfield1" value="" size="3"></td>

      <td> 

        <input name="textfield1" type="text" value="" size="3"></td>

      <td> 

        <input name="textfield1" type="text" value="" size="3"></td>

      <td> 

        <input name="textfield1" type="text" value="" size="3"></td>

      <td> 

        <input name="textfield1" type="text" value="" size="3"></td>

    </tr>

    <tr align="center" valign="middle"> 

      <td> 

        <input name="textfield" type="text" id="textfield" value="" size="3"></td>

      <td> 

        <input name="textfield" type="text" id="textfield" value="" size="3"></td>

      <td> 

        <input name="textfield" type="text" id="textfield" value="" size="3"></td>

      <td> 

        <input name="textfield" type="text" id="textfield" value="" size="3"></td>

      <td> 

        <input name="textfield" type="text" id="textfield" value="" size="3"></td>

      <td> 

        <input name="textfield1" type="text" id="textfield1" value="" size="3"></td>

      <td> 

        <input name="textfield1" type="text" value="" size="3"></td>

      <td> 

        <input name="textfield1" type="text" value="" size="3"></td>

      <td> 

        <input name="textfield1" type="text" value="" size="3"></td>

      <td> 

        <input name="textfield1" type="text" value="" size="3"></td>

    </tr>

    <tr align="center" valign="middle"> 

      <td> 

        <input name="textfield" type="text" id="textfield" value="" size="3"></td>

      <td> 

        <input name="textfield" type="text" id="textfield" value="" size="3"></td>

      <td> 

        <input name="textfield" type="text" id="textfield" value="" size="3"></td>

      <td> 

        <input name="textfield" type="text" id="textfield" value="" size="3"></td>

      <td> 

        <input name="textfield" type="text" id="textfield" value="" size="3"></td>

      <td> 

        <input name="textfield1" type="text" id="textfield1" value="" size="3"></td>

      <td> 

        <input name="textfield1" type="text" value="" size="3"></td>

      <td> 

        <input name="textfield1" type="text" value="" size="3"></td>

      <td> 

        <input name="textfield1" type="text" value="" size="3"></td>

      <td> 

        <input name="textfield1" type="text" value="" size="3"></td>

    </tr>

    <tr align="center" valign="middle"> 

      <td height="45"> 

        <input name="textfield" type="text" id="textfield" value="" size="3"></td>

      <td> <input name="textfield" type="text" id="textfield" value="" size="3"></td>

      <td> 

        <input name="textfield" type="text" id="textfield" value="" size="3"></td>

      <td> 

        <input name="textfield" type="text" id="textfield" value="" size="3"></td>

      <td> 

        <input name="textfield" type="text" id="textfield" value="" size="3"></td>

      <td> 

        <input name="textfield1" type="text" id="textfield1" value="" size="3">

      </td>

      <td> 

        <input name="textfield1" type="text" value="" size="3"></td>

      <td> 

        <input name="textfield1" type="text" value="" size="3"></td>

      <td> 

        <input name="textfield1" type="text" value="" size="3"></td>

      <td> 

        <input name="textfield1" type="text" value="" size="3"></td>

    </tr>

  </table>

  <p> </p>

  <p align="center"> 

    <input type="submit" name="Submit" value="确定">    

    <input type="reset" name="Submit2" value="重填">

  </p>

  </form>

lzp4881 2009-11-03
  • 打赏
  • 举报
 回复
Dim Mat(5)
Mat(0)=CInt(theMat)*CInt(theMat1)

theMat和theMat1是两个数组，

那就不能这么用.把你的代码发全
精通正则表达式基于.NET ASP PHP JSP JavaScript
将数组元素连接为字符串.asp 构造制定字符串.asp 正向截取字符串.asp 正向查找字符串.asp 获取字符串长度.asp 第13章（/14/） Matches集合与Macth对象.asp ...
解析Asp.net,C# 纯数字加密解密字符串的应用
在文章中，作者使用了Split方法以数字9作为分隔符，将纯数字字符串分割成多个八进制数字字符串数组。接着，遍历这些数组，并将每个八进制数字字符串转换回对应的整数值。最后，使用Convert.ToChar方法将这些整数值...
Asp 函数大全，几乎包括了全部的函数，而且每个函数都有很详细的定义及使用说明
16. **Split()** 函数：将字符串分割成子字符串数组。`Split(string, delimiter, limit, compare)` 根据分隔符将字符串分割，可设定限制项和比较方式。 这些只是ASP中VBScript的一部分函数，它们提供了处理数据、...
ASP200问.EXE
18.如何计算中英文混合字符串的长度 19.如何判断字符串是否以指定字符串开头或结尾 20.如何判断字符是否是英文字符 21.如何检测字符串出现的次数 22.如何过滤字符串中的HTML代码 23.如何截取字符串 24.如何实现字符...
Asp.net C# IP地址整形相互转化源代码
C#中可以使用`IPAddress.Parse`方法将字符串形式的IP地址转换为`IPAddress`对象，然后使用`GetAddressBytes`获取IP地址的字节表示，最后通过位运算将字节组合成整数。例如： ```csharp IPAddress ipAddress = IP...
ASP

28,406

社区成员

356,946

社区内容

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

加载中

查看更多榜单
社区公告
暂无公告

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

+ 用AI写文章