+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : هل من مساعد في معرفة نسخ أسطر محددة؟؟؟ (/showthread.php?tid=18136)
هل من مساعد في معرفة نسخ أسطر محددة؟؟؟ - KamelArab - 24-11-16
بسم الله الرحمن الرحيم
الرجاء المساعدة في هذا الكود
عندي تكست مكتوب عليها باللغة العربية وهي 400 سطر
السؤال هو:-
أريد كود يقوم بنسخ أسطر محددة وليكن 1-20-200-300-350-399
أي هل يمكنني من نسخ أسطر محددة
وشكرا على المساعدة
RE: هل من مساعد في معرفة نسخ أسطر محددة؟؟؟ - AL_BRNS - 24-11-16
السلام عليكم
ان كنت تقصد بــ تكست
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
سيتم عرض السطر الثالث من المستند النصي
بالتوفيق .
RE: هل من مساعد في معرفة نسخ أسطر محددة؟؟؟ - KamelArab - 24-11-16
عفوا من الأخ الكريم
أريد كود نسخ أسطر غير مرتبة وأقصد بالنسخ هو تعليم السطر ومن ثم تأتي عملية النسخ
ومن ثم نقوم بلصق الأسطر بعد نسخها
وشكرا
RE: هل من مساعد في معرفة نسخ أسطر محددة؟؟؟ - AL_BRNS - 25-11-16
السلام عليكم
كود النسخ "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
بالتوفيق اخي .
RE: هل من مساعد في معرفة نسخ أسطر محددة؟؟؟ - KamelArab - 25-11-16
أريد نسخ أسطر محددة من الملف النصي أرجو أن تصل الفكرة
وشكر على كل من قدم لي المساعدة