كيف استبدل بعض الرموز من ملف تيكس وحفظه باسم جديد

أولاً وعليكم السلام ورحمة الله والبركات

ثانياً ماذا تقصد بالرموز فالملف TXT لا يحتوي على رموز ، يرجى توضيح سؤالك

اخي العزيز الملف التكست الموجود لدي يحوي العديد من الرموز او لنقل مثل a43256 واريد احول كل رمز الى اخر مع الاحتفاظ ببقيه البيانات دون تغيير

فالرمز السابق مثلا اود تحويله دائما الى hdyu3

ملاحظة الرموز لسابقة كمثال فقط

شاكرا لك تجاوبك

أولاً لم تبين طريقة وضع الرموز التي أوردتها في الملف النصي أهي لوحدها أو في أول السطر.. مع هذا أعطيك مثال كفكرة لذلك:

لنفترض أن الرموز في كل سطر فيمكنك فتح الملف النصي بالطريقة التالية وتحميل أسطره في لاست بوكس بعد التعديل عليها ثم حفظه من جديد من اللاست بوكس:

Private Sub Command1_Click()
Open "مسار الملف" For Input As #1
	While Not EOF(1)
		Input #1, x
		If x = "a43256" Then x = "hdyu3" 'هنا تبديل رمزك
		list1.AddItem x
	Wend
Close #1

Open "مسار الملف" For Output As #1
	For i = 0 To list1.ListCount - 1
		Print #1, list1.List(i)
	Next
Close #1
End Sub

أرجو أن يفيدك ويكون هو المطلوب لك

شكرا جزيلا اخي عبدالعزيز

الملف الذي لدي مكون من عدد كبير من المنتجات

وتكون بياناته كالتالي

رمز المنتج، سعرة، قيمه الخصم عليه،كميه المتوفر ، ......

,fhh,a43256,250,649,646,2,894

فانا ارغب في تغيير الرمز a43256 في السطر السابق برمز اخر لدي

مع العلم ان كل المنتجات موضوعه مع بعضها البعض وفي ملف واحد

سوال اخر ا لست بوكس لايمكنني لصق البيانات به فلماذا لا اضع تكست بوكس لانه يقب النسخ و اللصق؟

في انتظار ردك

لماذا لم تستخدم قاعدة بيانات؟

بالنسبة لسؤالك فهمت أنك تريد تغيير الرمز يدوياً في التكست بوكس ، يمكنك إستبدال الليست بالتكست بوكس

مع تغيير الكود:

list1.AddItem x

بالكود التالي مع تفعيل خاصية MultiLine :

Text1 = Text1 & x & vbCrLf

وإذا أردت تحميل الرمز فقط في التكست فيمكنك إستخدام الدالة Mid قبل السطر السابق

opjgd,d,20070210,55.5000,57.0000,55.0000,56.7500,84858

ryhfh,d,20070210,56.7500,58.0000,56.2500,56.7500,85155

rafdh,d,20070210,58.0000,58.7500,57.0000,58.5000,61593

البانات السابقه جزء من الملف النصي

ارغب بافضل طريقه لتغيير اللاحرف في البدايه الى رمز اخر مع حفظها في ملف نصي

مع العلم ان موقع الاحرف السابق ليس دوما في اول السطر فقد يكون في اخرة

ويضا اني فقط ارغب في حفظ ناتج التغيير في ملف نصي

استفسار

الا توجد طريقه للبحث والاستبدال في الملف النصي

شاكرا لك سعة صدرك

بصراحة موضوعك ملخبط شوي

سألتك لماذا لم تستخدم قاعدة بيانات ولم تجيبني

اقتباس

استفسار

الا توجد طريقه للبحث والاستبدال في الملف النصي

يمكنك تحميل الملف النصي كله في الذاكرة ثم تستبدل الجملة المرادة .

اخي هناك موضوع شبية في توقيعي

بعنوان فلتر لابدال الحروف