Vote count:
0
Sub Edet_747() Close '*********************** 'For Boeing 747 '*********************** Dim FileNum As Integer Dim FilePath As String CrntDir = ActiveWorkbook.Path FileNum = 1 FilePath = "C:\Users\Darrell\Dropbox\Arizona State University\ASU Fall 2014\AEE 468\Course Handouts\Computer Codes\Homework2_747.inp" Open FilePath For Output As #FileNum Print #FileNum, "* Boeing 747 Input", vbTab Print #FileNum, "", vbTab Print #FileNum, " THE COMMENT CARD TOSSER SKIPS OVER ALL CARDS BEGINNING WITH A ", vbTab Print #FileNum, "", vbTab Print #FileNum, "* 1 2 3 4 5 6 7 8", vbTab Print #FileNum, "2345678901234567890123456789012345678901234567890123456789012345678901234567890", vbTab Print #FileNum, "", vbTab Print #FileNum, "SREF (FT^2) AR TC SW25 TR", vbTab Print #FileNum, Space(2) & Format$(Sheet2.Range("C3").Value, "000") & Space(8) & Format$(Sheet2.Range("C13").Value, "0.0") & Space(6) & Format$(Sheet2.Range("C17").Value, "0.000") & Space(6) & Format$(Sheet2.Range("C12").Value, "00") & Space(7) & Format$(Sheet2.Range("C8").Value, "0.00"), vbTab Print #FileNum, "", vbTab Print #FileNum, "* SWET_WING %CAMBER AITEK TRU TRL", vbTab Print #FileNum, Space(1) & Format$(Sheet2.Range("C16").Value, "000") & Space(8) & Format$(Sheet2.Range("C18").Value, "0.0") & Space(6) & Format$(Sheet2.Range("C19").Value, "0.0") & Space(8) & Format$(Sheet2.Range("C20").Value, "0.0") & Space(6) & Format$(Sheet2.Range("C21").Value, "0.0"), vbTab Print #FileNum, "", vbTab Print #FileNum, " SWET_FUSE S_LEN BODY_L/D SBASE CP_BASE", vbTab Print #FileNum, Space(1) & Format$(Sheet2.Range("R4").Value, "0000") & Space(8) & Format$(Sheet2.Range("R5").Value, "00.0") & Space(4) & Format$(Sheet2.Range("R6").Value, "0.0") & Space(8) & Format$(Sheet2.Range("R7").Value, "0") & Space(8) & Format$(Sheet2.Range("R8").Value, "0.0"), vbTab Print #FileNum, "", vbTab Print #FileNum, " CRUDFACTOR", vbTab Print #FileNum, Format$(Sheet2.Range("R9").Value, "0.00"), vbTab Print #FileNum, "", vbTab Print #FileNum, " REFERENCE CONDITIONS", vbTab Print #FileNum, "* REF_ALT REF_MACH", vbTab Print #FileNum, Format$(Sheet2.Range("U3").Value, "00000") & Space(9) & Format$(Sheet2.Range("U4").Value, "0.0"), vbTab Print #FileNum, "", vbTab Print #FileNum, " EXTRA STUFF", vbTab Print #FileNum, "* COMPONENT ", vbTab Print #FileNum, "* S_WET LEN TC/FR DELTA_CD0", vbTab Print #FileNum, "V-TAIL", vbTab Print #FileNum, Space(1) & Format$(Sheet2.Range("O7").Value, "000") & Space(11) & Format$(Sheet2.Range("O8").Value, "0") & Space(6) & Format$(Sheet2.Range("O9").Value, "0.00") & Space(4) & Format$(Sheet2.Range("O10").Value, "0.000000"), vbTab Print #FileNum, "H-TAIL", vbTab Print #FileNum, Space(1) & Format$(Sheet2.Range("L9").Value, "000") & Space(11) & Format$(Sheet2.Range("L10").Value, "0.0") & Space(4) & Format$(Sheet2.Range("L11").Value, "0.00") & Space(4) & Format$(Sheet2.Range("L12").Value, "0.000000"), vbTab Print #FileNum, "NACELLES/PYLONS", vbTab Print #FileNum, Space(1) & Format$(Sheet2.Range("X3").Value, "000") & Space(11) & Format$(Sheet2.Range("X4").Value, "00") & Space(7) & Format$(Sheet2.Range("X5").Value, "0.0") & Space(5) & Format$(Sheet2.Range("X6").Value, "0.000000"), vbTab Print #FileNum, hbTab Close #FileNum
Dim FilePath2 As String
Dim FileNum2 As Integer
FilePath2 = "C:\Users\Darrell\Dropbox\Arizona State University\ASU Fall 2014\AEE 468\Course Handouts\Computer Codes\edet_747.bat"
FileNum2 = 2
Open FilePath2 For Output As #FileNum2
Print #FileNum2, "edet2012 <Homework2_747.inp> Homework2_747.out", vbTab
Close #FileNum2
Dim RunEDET
ChDir "C:\Users\Darrell\Dropbox\Arizona State University\ASU Fall 2014\AEE 468\Course Handouts\Computer Codes"
'RunEDET = CreateObject(wscript.Shell).Run("edet.bat", 0, True)
Call Shell(FilePath2, vbHide)
Dim FilePath3 As String
Dim FileNum3 As Integer
Dim i As Integer
Dim j As Integer
Dim curLine As String
Dim vdata As Variant
Dim row As Integer
Dim curdata(1 To 100) As String
'Change to Homework2.out but using G-II-edet.out for reference FilePath3 = "C:\Users\Darrell\Dropbox\Arizona State University\ASU Fall 2014\AEE 468\Course Handouts\Computer Codes\Homework2_747.out" FileNum3 = 3
'Sheet3.Range("K32:Z99999").ClearContents
Open FilePath3 For Input As #FileNum3
Do Until EOF(FileNum3)
Line Input #FileNum3, curLine
'Input CHANGE IN DRAG COEFFICIENT FROM CRUISE ALTITUDE into Excel If InStr(curLine, "* ALTITUDE MACH_# DELTA_CD") Then row = 32 flag = 0 Do While flag = 0
Line Input #FileNum3, curLine
If InStr(curLine, "*") Then flag = 1
If flag = 0 Then
vdata = Split(curLine, " ")
j = 1
For i = LBound(vdata) To UBound(vdata)
If vdata(i) = "" Then
Else
curdata(j) = vdata(i)
j = j + 1
End If
Next i
Sheet2.Cells(row, 11) = curdata(1)
Sheet2.Cells(row, 12) = curdata(2)
Sheet2.Cells(row, 13) = curdata(3)
row = row + 1
End If
Loop
End If
'Input Drag Polar into Excel
If InStr(curLine, "* MACH ALFA CL CD") Then
row = 32
flag = 0
Do While flag = 0
Line Input #FileNum3, curLine
If InStr(curLine, "*") Then flag = 1
If flag = 0 Then
vdata = Split(curLine, " ")
j = 1
For i = LBound(vdata) To UBound(vdata)
If vdata(i) = "" Then
Else
curdata(j) = vdata(i)
j = j + 1
End If
Next i
Sheet2.Cells(row, 15) = curdata(1)
Sheet2.Cells(row, 16) = curdata(2)
Sheet2.Cells(row, 17) = curdata(3)
Sheet2.Cells(row, 18) = curdata(4)
row = row + 1
End If
Loop
End If
If InStr(curLine, "* MACH CDF CDC BUFFET CL") Then
row = 32
flag = 0
Do While flag = 0
Line Input #FileNum3, curLine
If InStr(curLine, "*") Then flag = 1
If flag = 0 Then
vdata = Split(curLine, " ")
j = 1
For i = LBound(vdata) To UBound(vdata)
If vdata(i) = "" Then
Else
curdata(j) = vdata(i)
j = j + 1
End If
Next i
Sheet2.Cells(row, 20) = curdata(1)
Sheet2.Cells(row, 21) = curdata(2)
Sheet2.Cells(row, 22) = curdata(3)
Sheet2.Cells(row, 23) = curdata(4)
row = row + 1
End If
Loop
End If
'Input INDUCED DRAG into Excel If InStr(curLine, "* CL CDi") Then row = 32 flag = 0 Do While flag = 0
Line Input #FileNum3, curLine
If InStr(curLine, "*") Then flag = 1
If flag = 0 Then
vdata = Split(curLine, " ")
j = 1
For i = LBound(vdata) To UBound(vdata)
If vdata(i) = "" Then
Else
curdata(j) = vdata(i)
j = j + 1
End If
Next i
Sheet2.Cells(row, 25) = curdata(1)
Sheet2.Cells(row, 26) = curdata(2)
row = row + 1
End If
Loop
End If
'Input PRESSURE DRAG COEFFICIENTS… CDP into Excel If InStr(curLine, "* MACH CL DEL_CDP") Then row = 32 flag = 0 Do While flag = 0
Line Input #FileNum3, curLine
If InStr(curLine, "*") Then flag = 1
If flag = 0 Then
vdata = Split(curLine, " ")
j = 1
For i = LBound(vdata) To UBound(vdata)
If vdata(i) = "" Then
Else
curdata(j) = vdata(i)
j = j + 1
End If
Next i
Sheet2.Cells(row, 28) = curdata(1)
Sheet2.Cells(row, 29) = curdata(2)
Sheet2.Cells(row, 30) = curdata(3)
row = row + 1
End If
Loop
End If
'Input WING DESIGN CONDITIONS into Excel If InStr(curLine, "* DES_MACH DES_CL") Then row = 28 flag = 0 Do While flag = 0
Line Input #FileNum3, curLine
If InStr(curLine, "*") Then flag = 1
If flag = 0 Then
vdata = Split(curLine, " ")
j = 1
For i = LBound(vdata) To UBound(vdata)
If vdata(i) = "" Then
Else
curdata(j) = vdata(i)
j = j + 1
End If
Next i
Sheet2.Cells(row, 2) = curdata(1)
Sheet2.Cells(row, 3) = curdata(2)
row = row + 1
End If
Loop
End If
'Input POST-STALL CRIT_AR into Excel If InStr(curLine, "* CRIT_AR PITCH_BREAK") Then row = 30 flag = 0 Do While flag = 0
Line Input #FileNum3, curLine
If InStr(curLine, "*") Then flag = 1
If flag = 0 Then
vdata = Split(curLine, " ")
j = 1
For i = LBound(vdata) To UBound(vdata)
If vdata(i) = "" Then
Else
curdata(j) = vdata(i)
j = j + 1
End If
Next i
Sheet2.Cells(row, 2) = curdata(1)
Sheet2.Cells(row, 3) = curdata(2)
row = row + 1
End If
Loop
End If
'Input CD0 BUILD UP into Excel If InStr(curLine, "* MACH NUMBER ALTITUDE REFERENCE AREA TECHNOLOGY LEVEL") Then row = 33 flag = 0 Do While flag = 0
Line Input #FileNum3, curLine
If InStr(curLine, "*") Then flag = 1
If flag = 0 Then
vdata = Split(curLine, " ")
j = 1
For i = LBound(vdata) To UBound(vdata)
If vdata(i) = "" Then
Else
curdata(j) = vdata(i)
j = j + 1
End If
Next i
Sheet2.Cells(row, 2) = curdata(1)
Sheet2.Cells(row, 3) = curdata(2)
Sheet2.Cells(row, 4) = curdata(4)
Sheet2.Cells(row, 5) = curdata(7)
row = row + 1
End If
Loop
End If
'Input NUMCL into Excel If InStr(curLine, "* NUMCL") Then row = 48 flag = 0 Do While flag = 0
Line Input #FileNum3, curLine
If InStr(curLine, "*") Then flag = 1
If flag = 0 Then
vdata = Split(curLine, " ")
j = 1
For i = LBound(vdata) To UBound(vdata)
If vdata(i) = "" Then
Else
curdata(j) = vdata(i)
j = j + 1
End If
Next i
Sheet2.Cells(row, 2) = curdata(1)
row = row + 1
End If
Loop
End If
'Input NUMMACH into Excel If InStr(curLine, "* NUMMACH") Then row = 50 flag = 0 Do While flag = 0
Line Input #FileNum3, curLine
If InStr(curLine, "*") Then flag = 1
If flag = 0 Then
vdata = Split(curLine, " ")
j = 1
For i = LBound(vdata) To UBound(vdata)
If vdata(i) = "" Then
Else
curdata(j) = vdata(i)
j = j + 1
End If
Next i
Sheet2.Cells(row, 2) = curdata(1)
row = row + 1
End If
Loop
End If
'Input NALT into Excel If InStr(curLine, "* NALT") Then row = 52 flag = 0 Do While flag = 0
Line Input #FileNum3, curLine
If InStr(curLine, "*") Then flag = 1
If flag = 0 Then
vdata = Split(curLine, " ")
j = 1
For i = LBound(vdata) To UBound(vdata)
If vdata(i) = "" Then
Else
curdata(j) = vdata(i)
j = j + 1
End If
Next i
Sheet2.Cells(row, 2) = curdata(1)
row = row + 1
End If
Loop
End If
'Input COMPONENT (Wing & Fuselage) into Excel If InStr(curLine, "SQ FT FT RATIO FACTOR MILLIONS") Then row = 36 flag = 0 Do While flag = 0
Line Input #FileNum3, curLine
If InStr(curLine, "V-TAIL") Then flag = 1
If flag = 0 Then
vdata = Split(curLine, " ")
j = 1
For i = LBound(vdata) To UBound(vdata)
If vdata(i) = "" Then
Else
curdata(j) = vdata(i)
j = j + 1
End If
Next i
Sheet2.Cells(row, 3) = curdata(2)
Sheet2.Cells(row, 4) = curdata(3)
Sheet2.Cells(row, 5) = curdata(4)
Sheet2.Cells(row, 6) = curdata(5)
Sheet2.Cells(row, 7) = curdata(6)
Sheet2.Cells(row, 8) = curdata(7)
Sheet2.Cells(row, 9) = curdata(8)
row = row + 1
End If
Loop
End If
'ZZZZZZZZZZZZZ
Loop
Close #FileNum3
End Sub
Keep getting Run-time error '62' "Input past end of file" VBA Excel
Aucun commentaire:
Enregistrer un commentaire