24-11-16, 05:18 PM
السلام عليكم
ان كنت تقصد بــ تكست
TextBox
جرب التالي
ان كنت تقصد بــ تكست
TextBox
جرب التالي
PHP كود :
Private Sub Command1_Click()
Dim A() As String
Dim s As String
s = Text1.Text
A() = Split(s, vbNewLine)
Text2.Text = (A(0)) & vbCrLf & (A(2))
End Sub
سيتم عرض السطر الاول والسطر الثالث
اما ان كنت تقصد بــ تكست
المستند النصي
جرب التالي
PHP كود :
Private Function readline(ByRef strfilepath As String, ByRef nline _
As Integer) As String
Dim nextline As String
Dim n As Integer
filenum = FreeFile
Open strfilepath For Input As filenum
Do Until EOF(filenum)
Line Input #filenum, nextline
n = n + 1
If n = nline Then readline = nextline
Loop
Close
End Function
Private Sub Command1_Click()
Text1.Text = readline(App.Path & "/test.txt", 3)
End Sub
سيتم عرض السطر الثالث من المستند النصي
بالتوفيق .
