هل من مساعد في معرفة نسخ أسطر محددة؟؟؟

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  نسخ بيانات محددة من جدول إلى آخر مصمم هاوي 3 129 24-02-18, 04:09 PM
آخر رد: مصمم هاوي
  [سؤال] معرفة اسماء الجداول الموجودة داخل قاعدة بيانات أبوسعود 5 583 15-05-17, 11:28 PM
آخر رد: Ahmed_Mansoor
  تعديل على كود استدعاء بيانات محددة من ثلاث جداول مصمم هاوي 10 1,107 16-09-16, 08:33 PM
آخر رد: Amir_Alzubidy
  مساعدة في كود معرفة الشهر الحالي وتاريخ أوله وتاريخ نهايته tighrmte 2 500 20-02-16, 10:45 PM
آخر رد: tighrmte
  اين المشكلة في هذا الكود لاظهار نتيجة سنة محددة k_medhat 8 985 23-11-15, 09:02 PM
آخر رد: k_medhat
  معرفة آخر تعديلات تمت فى البرنامج اسلام الكبابى 10 1,625 08-10-15, 07:08 PM
آخر رد: اسلام الكبابى
  معرفة نسخة الجهاز عبدالله الصافي 2 499 03-07-15, 01:54 AM
آخر رد: عبدالله الصافي
  هل من الممكن معرفة عدد مرات تشغيل البرنامج superwoofer 1 725 29-01-15, 06:40 AM
آخر رد: Ahmed_Mansoor
  مساعدة في معرفة الخطأ asto 7 1,342 20-01-15, 07:52 PM
آخر رد: asto
  سؤال : loop لعمل المتوسط الحسابي لكل عدد خلايا محددة student 1 613 24-04-14, 08:04 AM
آخر رد: asto

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


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