Do interface for temporary use vb project to do, can have no contact with programming before, so most is to see someone else's code
Dim x As Integer
Private Sub Command3_Click ()
X=Val (Text1. Text)
FileCopy "C: \ Users \ useful \ Desktop \ simple_beam TXT", "C: \ Users \ useful \ Desktop \ simple_beam1 TXT"
Dim buffer As a String
Set the fs=CreateObject (" Scripting. FileSystemObject ")
Set a=fs. OpenTextFile (" C: \ Users \ useful \ Desktop \ simple_beam TXT ", 1)
The Set b=fs. CreateTextFile (" C: \ Users \ useful \ Desktop \ simple_beam TMP ")
The Do While a.A tEndOfStream & lt;> True
Retstring=a.R eadLine
If retstring="origin=(20, 20), width=150, height=120)" Then
B.w riteline (" origin=(20, 20), width=150, height= x ") ' here I want to set the value of the input in the text1, but the setting is not successful, plus (" ") and you will be prompted error, bosses what is this
The Else
B.w riteline retstring
End the If

Loop
A.C lose
The biggest lose

Fs. Used by copyfile "C: \ Users \ useful \ Desktop \ simple_beam TMP", "C: \ Users \ useful \ Desktop \ simple_beam TXT", True,
Fs. Deletefile "C: \ Users \ useful \ Desktop \ simple_beam TMP"

The Name "C: \ Users \ useful \ Desktop \ simple_beam TXT" As "C: \ Users \ useful \ Desktop \ simple_beam py"
The Name "C: \ Users \ useful \ Desktop \ simple_beam1 TXT" As "C: \ Users \ useful \ Desktop \ simple_beam TXT"
End Sub