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

窗体上摆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

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

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

分行读取
切割空格
val判断

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