تقييم الموضوع :
  • 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
أريد نسخ أسطر محددة من الملف النصي أرجو أن تصل الفكرة
وشكر على كل من قدم لي المساعدة
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تعديل على كود استدعاء بيانات محددة من ثلاث جداول مصمم هاوي 10 283 16-09-16, 08:33 PM
آخر رد: Amir_alzubidy
  مساعدة في كود معرفة الشهر الحالي وتاريخ أوله وتاريخ نهايته tighrmte 2 185 20-02-16, 10:45 PM
آخر رد: tighrmte
  اين المشكلة في هذا الكود لاظهار نتيجة سنة محددة k_medhat 8 300 23-11-15, 09:02 PM
آخر رد: k_medhat
  معرفة آخر تعديلات تمت فى البرنامج اسلام الكبابى 10 996 08-10-15, 07:08 PM
آخر رد: اسلام الكبابى
  معرفة نسخة الجهاز عبدالله الصافي 2 258 03-07-15, 01:54 AM
آخر رد: عبدالله الصافي
  هل من الممكن معرفة عدد مرات تشغيل البرنامج superwoofer 1 449 29-01-15, 06:40 AM
آخر رد: Ahmed_Mansoor
  مساعدة في معرفة الخطأ asto 7 821 20-01-15, 07:52 PM
آخر رد: asto
  سؤال : loop لعمل المتوسط الحسابي لكل عدد خلايا محددة student 1 411 24-04-14, 08:04 AM
آخر رد: asto
  معرفة مسار ملف مفتوح ببرنامجي asto 2 546 15-03-14, 09:52 PM
آخر رد: asto
  معرفة نوع القرص asto 2 453 26-11-13, 09:20 PM
آخر رد: asto

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


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