تقييم الموضوع :
  • 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 170 24-02-18, 04:09 PM
آخر رد: مصمم هاوي
  [سؤال] معرفة اسماء الجداول الموجودة داخل قاعدة بيانات أبوسعود 5 663 15-05-17, 11:28 PM
آخر رد: Ahmed_Mansoor
  تعديل على كود استدعاء بيانات محددة من ثلاث جداول مصمم هاوي 10 1,180 16-09-16, 08:33 PM
آخر رد: الحساب ملغي
  مساعدة في كود معرفة الشهر الحالي وتاريخ أوله وتاريخ نهايته tighrmte 2 529 20-02-16, 10:45 PM
آخر رد: tighrmte
  اين المشكلة في هذا الكود لاظهار نتيجة سنة محددة k_medhat 8 1,025 23-11-15, 09:02 PM
آخر رد: k_medhat
  معرفة آخر تعديلات تمت فى البرنامج اسلام الكبابى 10 1,663 08-10-15, 07:08 PM
آخر رد: اسلام الكبابى
  معرفة نسخة الجهاز عبدالله الصافي 2 533 03-07-15, 01:54 AM
آخر رد: عبدالله الصافي
  هل من الممكن معرفة عدد مرات تشغيل البرنامج superwoofer 1 746 29-01-15, 06:40 AM
آخر رد: Ahmed_Mansoor
  مساعدة في معرفة الخطأ asto 7 1,405 20-01-15, 07:52 PM
آخر رد: asto
  سؤال : loop لعمل المتوسط الحسابي لكل عدد خلايا محددة student 1 649 24-04-14, 08:04 AM
آخر رد: asto

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


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