نسخ النص في الذاكرة مساعدة

لا يوجد شئ اسمه كود نسخ الى الذاكرة في اللغات مثل الفيجوال بيسك لأن الـ compiler يتصرف فيما يتعلق بهذه الامور وانت تتعامل مع مؤشرات فقط لا تستطيع ان تتعامل مع الذاكرة بشكل مباشر.

لذلك ان كان هناك معالجة ما على النص المدخل فكل ما عليك فعله هو تمريرها الى وظيفة او اجرائية ما تقوم بهذه المعالجة ومن ثم اسنادها الى متحول ما, كأن تكون النتيجة رقم عشري فتسند النص المعالج إلى متحول من نوع Integer

ا

Dim TMPLng as long
TMPLng = StrPtr(Text1.Text)

ولما تستدعيه هتحتاج تحط في الــ Declaration

Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)

وتستخدم الــ Procedure ده :

Public Function PtrToStr(ByVal iPtr As Long) As String
	Dim TMPStr As String
	CopyMemory TMPStr, iPtr, Len(iPtr)
	PtrToStr = StrConv(TMPStr, vbFromUnicode)
End Function

ومرفق مثل بالكلام ده

ولو قصدك مش زي اللى فهمته ياريت توضيح اكتر .. وخلي بالك بمجرد متقفل البرنامج بتاعك طبعا ال Ptr مش هيكون له أي قيمة ولا مكان في الرام

PtrToStr.rar

ربما يقصد الحافظة

لو تقصد الحافظه زي الأستاذ عبد العزيز ما قال يبقى لازم تفرغها الأول وبعدين تملاها بالنص اللى انت عاوزه .. زي كده مثلا :

Clipboard.Clear
Clipboard.SetText "MYTest"