تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
هل من مساعد في معرفة نسخ أسطر محددة؟؟؟
#1
Wink 
بسم الله الرحمن الرحيم
الرجاء المساعدة في هذا الكود
عندي تكست مكتوب عليها باللغة العربية وهي 400 سطر
السؤال هو:-
أريد كود يقوم بنسخ أسطر محددة وليكن 1-20-200-300-350-399
أي هل يمكنني من نسخ أسطر محددة
وشكرا على المساعدة

Heart Heart Heart
الرد }}}
تم الشكر بواسطة:
#2
السلام عليكم

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

TextBox

جرب التالي

PHP كود :
Private Sub Command1_Click()
Dim A() As String
Dim s 
As String
Text1.Text
A
() = Split(svbNewLine)
Text2.Text = (A(0)) & vbCrLf & (A(2))
End Sub 

سيتم عرض السطر الاول  والسطر الثالث

اما ان كنت تقصد بــ تكست
المستند النصي 

جرب التالي

PHP كود :
Private Function readline(ByRef strfilepath As StringByRef 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
1
If nline Then readline nextline
Loop
Close
End 
Function

Private 
Sub Command1_Click()
Text1.Text readline(App.Path "/test.txt"3)
End Sub 

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

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

كود النسخ  "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 


بالتوفيق اخي .
الرد }}}
#5
أريد نسخ أسطر محددة من الملف النصي أرجو أن تصل الفكرة
وشكر على كل من قدم لي المساعدة
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Lightbulb [سؤال] إظهار قيمة خلية محددة عند النقر على صف معين في DataGrid1 أبو خالد الشكري 4 326 13-09-23, 09:52 PM
آخر رد: أبو خالد الشكري
  تعديل على كود استدعاء بيانات محددة من ثلاث جداول مصمم هاوي 11 5,198 14-09-22, 11:49 PM
آخر رد: رضوان الجماعي
  نسخ بيانات محددة من جدول إلى آخر مصمم هاوي 14 3,562 30-08-22, 11:53 PM
آخر رد: 2003amin
  مساعد في اغلاق اتصال قاعدت البيانات ahmed250 0 749 11-05-22, 10:10 AM
آخر رد: ahmed250
  طلب طريقة معرفة عدد الصفوف الفرغه في عمود معيين MSFlexGrid ahmed201 7 2,123 08-01-21, 11:31 PM
آخر رد: سعود
  تاريخ أول / أخر تاريخ فى الشهر فى سنة محددة aboezzat84 0 889 02-01-21, 04:45 AM
آخر رد: aboezzat84
  مساعدة في عرض بيانات محددة في التقرير مصمم هاوي 1 1,421 17-09-20, 08:39 PM
آخر رد: مصمم هاوي
  اداة vbflexgrid13.ocx شبيه بالاداة العادية بحاجة الى معرفة اكثر gonm64 2 1,392 04-11-19, 05:34 PM
آخر رد: gonm64
  [vb6.0] المساعدة في معرفة عدد القوائم وادي العوضي 11 2,693 26-10-19, 01:19 AM
آخر رد: asemshahen5
  [مشروع] تعديل كود معرفة اللاسماء الغير موجودة في جدول mustafa mohamed 3 1,787 16-07-19, 04:23 PM
آخر رد: mustafa mohamed

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم