Vielen Dank.
Function FunktionFocalLength(sTxt As String) As String
Dim Textzeile
Open "c:\_jan\Excel\testdatei.tor" For Input As #1 ' Datei öffnen.
Do While Not EOF(1) ' Schleife bis Dateiende.
Line Input #1, Textzeile ' Zeile in Variable einlesen.
If InStr(Textzeile, sTxt) Then
FunktionFocalLength = Textzeile
Exit Do
End If
Loop
Close #1 ' Datei schließen.
Close
End Function
Private Sub WerteEinlesenButton1_Click()
Dim Textzeile As String, sTxt As String
sTxt = "focal_length"
TextBox1.Text = Trim(Mid(FunktionFocalLength(sTxt), 14, 6))
sTxt = "half_axis"
TextBox4.Text = Trim(Mid(FunktionFocalLength(sTxt), 20, 6))
sTxt = "x_axis"
TextBox2.Text = ((Trim(Mid(FunktionFocalLength(sTxt), 38, 16)))) '/ (Trim(Mid(FunktionFocalLength(sTxt), 18, 11))))
End Sub
Hier noch die Text(Tor)-Datei
Main_Reflector_1 reflector
(
coor_sys ref(Global_Coor_1),
surface ref(Main_Refl_Surf_1),
rim ref(Main_Refl_Rim_1)
)
Global_Coor_1 coor_sys
(
origin struct(x 0 mm,y 0 mm,z 0 mm)
)
Main_Refl_Surf_1 paraboloid
(
focal_length 2000 mm,
vertex struct(x 0 mm,y 0 mm,z 0 mm)
)
Main_Refl_Rim_1 elliptical_rim
(
centre struct(x -1537,900511 mm,y 0 mm),
half_axis struct(x 1000 mm,y 1000 mm)
)
Sub_Reflector_1 reflector
(
coor_sys ref(Coor_Sys_Subrefl_1),
surface ref(Sub_Refl_Surf_1),
rim ref(Sub_Refl_Rim_1)
)
Coor_Sys_Subrefl_1 coor_sys
(
origin struct(x 0 mm,y 0 mm,z 2000 mm),
x_axis struct(x 0,999048222 ,y 0 ,z 0.4361938699E-01),
y_axis struct(x 0 ,y -1 ,z 0 ),
base ref(Global_Coor_1)
)
Sub_Refl_Surf_1 hyperboloid
(
vertex_distance 1125 mm,
foci_distance 1800 mm
)
Sub_Refl_Rim_1 elliptical_rim
(
centre struct(x -304,2076612 mm,y 0 mm),
half_axis struct(x 202,1196472 mm,y 186,449702 mm)
)
Feed_1 feed
(
frequency ref(Wavelength_1),
coor_sys ref(Coor_Sys_Feed_1),
feed_definition ref(Feed_Pat_1)
)
Wavelength_1 wavelength
(
list_wl sequence( 3 mm)
)
Coor_Sys_Feed_1 coor_sys
(
origin struct(x 0 mm,y 0 mm,z 1800 mm),
x_axis struct(x 0,982277652 ,y 0 ,z -0,187431625 ),
y_axis struct(x 0 ,y -1 ,z 0 ),
base ref(Coor_Sys_Subrefl_1)
)
Feed_Pat_1 gaussian_feed
(
taper_angle 6,659475458 ,
taper -12
)
Field_Cuts_1 spherical_cut
(
frequency ref(Wavelength_1),
coor_sys ref(Coor_Sys_Cut_1),
near_dist 0 mm,
theta_range struct(start -0,42971835 ,end 0,42971835 ,np 41),
phi_range struct(start 0 ,end 90 ,np 2),
file_name C:\Programme\Ticra\Grasp826\sph_1.cut
)
Coor_Sys_Cut_1 coor_sys
(
origin struct(x -1537,900511 mm,y 0 mm,z 295,64225 mm),
base ref(Global_Coor_1)
)
Main_PO_Calc_1 standard_po
(
frequency ref(Wavelength_1),
scatterer ref(Main_Reflector_1),
po_points struct(po1 11,po2 27),
ptd_points sequence
( struct(edge 1,ptd 0)
),
coor_sys ref(Global_Coor_1),
file_name C:\Programme\Ticra\Grasp826\mpo_1
)
Sub_PO_Calc_1 standard_po
(
frequency ref(Wavelength_1),
scatterer ref(Sub_Reflector_1),
po_points struct(po1 196,po2 471),
ptd_points sequence
( struct(edge 1,ptd 0)
),
coor_sys ref(Coor_Sys_Subrefl_1),
file_name C:\Programme\Ticra\Grasp826\spo_1
)