VB 计算文本每行的积，并保存，麻烦帮忙写下详细代码，谢谢

[jgyc123]

问题 .VB 计算文本每行的积，并保存，麻烦帮忙写下详细代码，谢谢
有文本文件（记事本TXT）里面每行有如下内容：
1123
0193
2314
3211
……
……
……等几千行


如：输入的积是6那就保留积等于6的行，并保存在当行路径
1231
1123
3211
1231

[jgyc123]

哪位好心人，帮忙解决下好吗？

[of123]

这题出的，没头没脑。一行数字，计算规则是什么？

[jgyc123]

也就是筛选出记事本里面与输入的积相等的行， 如：记事本里面有如下数据 2342 1231 4342 1123 等内容 如果输入的积＝6 就筛选出 1123 2131 这些数据

[赵4老师]

Dim Product As Long 
Dim i As Long 
Dim Ln As String
'...
Line Input #f,Ln
Product=1
for i=Len(Ln)
 Product=Product*Val(Mid(Ln,i,1))
next
if CStr(Product)=Text1.Text Then
 '...
End If

[熊孩子开学喽]

1:先按照回车符把每行分开 2:逐个计算行中每个数字相乘的结果 3:保存

[脆皮大雪糕]

明显的作业，这种问题拒答。

[jgyc123]

谢谢赵4老师，终于等到一位热心人回答。因为业余要用到小工具软件，对编程又是不太懂。太感谢了

[舉杯邀明月]

“无满意答案”结贴，你们就是这样“感谢热心人”的么………… 呵呵…………