منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - هل من مساعد في معرفة نسخ أسطر محددة؟؟؟

بسم الله الرحمن الرحيم
الرجاء المساعدة في هذا الكود
عندي تكست مكتوب عليها باللغة العربية وهي 400 سطر
السؤال هو:-
أريد كود يقوم بنسخ أسطر محددة وليكن 1-20-200-300-350-399
أي هل يمكنني من نسخ أسطر محددة
وشكرا على المساعدة
Heart

السلام عليكم

ان كنت تقصد بــ تكست

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 

سيتم عرض السطر الثالث من المستند النصي

بالتوفيق .

عفوا من الأخ الكريم
أريد كود نسخ أسطر غير مرتبة وأقصد بالنسخ هو تعليم السطر ومن ثم تأتي عملية النسخ
ومن ثم نقوم بلصق الأسطر بعد نسخها
وشكرا

السلام عليكم

كود النسخ "copy"

PHP كود :

Private Sub command1_Click()
    Clipboard.Clear
    Clipboard.SetText Text1.SelText
End Sub 

كود القص "cut"

PHP كود :

Private Sub command2_Click()
    Clipboard.Clear
    Clipboard.SetText text1.SelText
    text1.SelText = ""
End Sub 

كود اللصق "paste"

PHP كود :

Private Sub command3_Click()
     Text1.SelText = Clipboard.GetText()
End Sub 

بالتوفيق اخي .

أريد نسخ أسطر محددة من الملف النصي أرجو أن تصل الفكرة
وشكر على كل من قدم لي المساعدة

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

KamelArab

AL_BRNS

KamelArab

AL_BRNS

KamelArab