???????????????????????????????

International 日本語
1

???
???
???
??
???
???AddRaw???.
???Mid???
???

???shell???ls???Strings???ReadLine???

2

???
???Mid???
???

Dim theResult As String=//???
Dim theNo,theNo2,theNo3,theNo4 As Integer
Dim theName As String
theNo4=Len(theResult)
theNo=0
While theNo<theNo4 //???
theNo2=InStr(theNo,theResult,EndOfLine)
theName=Mid(theResult,theNo,theNo2-theNo )
PopupMenu.AddRow(theName)
theNo3=Len(theName)+1//EndOfLine???
theNo=theNo+theNo3//???
Wend
PopupMenu.ListIndex=0

3

???EndOfLine ???

Dim s, t( ) As String
s = “???” + EndOfLine + “???” + EndOfLine + “???” + EndOfLine + “???”

t = Split( s, EndOfLine )

??s ? split ? EndOfLine ???t ???

???NthField ???
result = NthField( source, separator, fieldNumber )
? source ??? separator ??? fieldNumber??? result ???

???

???@Xojo

4

???
???Split???
Dim s As Shell
s= New Shell
Dim theCode As String
theCode=“cd "
theCode=theCode+”/Applications/FlightGear.app/Contents/Resources/data/Aircraft/"+EndOfLine
theCode=theCode+“ls”
s.Execute(theCode)
Dim t( ) As String
t=Split(s.Result,EndOfLine)
Dim theNo As Integer
theNo=UBound(t)
For its As Integer=0 To theNo
If t(its)<>"" Then
PopupMenu3.AddRow(t(its))
End If
Next
PopupMenu3.ListIndex=0

FlightGear.app???UBound???Index???

???