Question

VB提取TXT文档的某几个数字 分别赋值给TEXT1 TEXT2 TEXT3....

P 250 U 220 P 4 f 50 相数 2 Kfe 0.95
η 0.62 cosφ 0.9 气隙系数 1.32 L 6.2 通风孔径 0 初设Ist 10
这是TXT文档的一段内容
我想实现 text1.text =250 ,text2.text=220 ,text3.text=4.........
该怎么提取TXT的内容呢
TXT文件我是通过commondialog控件连接打开的

Answer 1

窗体上摆text1至text12 和一个command1,复制以下代码去测试。

Private Sub Command1_Click()
Dim s As String
s = "P 250 U 220 P 4 f 50 相数 2 Kfe 0.95" & vbCrLf & _
"η 0.62 cosφ 0.9 气隙系数 1.32 L 6.2 通风孔径 0 初设Ist 10"
s = Replace(s, vbCrLf, " ")
While InStr(s, " ")
s = Replace(s, " ", " ")
Wend
Dim ss
ss = Split(s)
For i = 1 To 12
Me("text" & i).Text = ss(2 * i - 1)
Next
End Sub

Answer 2

commondialog用来获取文件路径，具体读取txt文件中的文本需要你自己写代码的，代码简单网上搜索很多，然后对从文本中读取的字符串进行处理，提取你想要的数据就行了

追问

找了好久了 找不到 网上大部分都是把所有的数字都赋值给Text1.text，我想要分别赋值 一个一个赋值 真没找到

Answer 3

你的要求是每个变量以空格隔开，然后每隔一个变量取一个变量，：如跨过P取250、跨过U取220，跨过P取4.........请稍等，代码正在编写
如需要了解更多，请加|q（仅保留数字）：1【7】392】5。75】2。1

Answer 4

分行读取
切割空格
val判断

Answer 5

胸中无数是指十二生肖哪个动物