آموزش در مورد تبدیل کد حروف فارسی به URL صفحه هات برای ارتباط بهتر با اینترنت
و تشکر یا....
With Text
.Text = Replace(.Text, "ض", "%D8%B6")
.Text = Replace(.Text, "ص", "%D8%B5")
.Text = Replace(.Text, "ث", "%D8%AB")
.Text = Replace(.Text, "ق", "%D9%82")
.Text = Replace(.Text, "ف", "%D9%81")
.Text = Replace(.Text, "غ", "%D8%BA")
.Text = Replace(.Text, "ع", "%D8%B9")
.Text = Replace(.Text, "ه", "%D9%87")
.Text = Replace(.Text, "خ", "%D8%AE")
.Text = Replace(.Text, "ح", "%D8%AD")
.Text = Replace(.Text, "ج", "%D8%AC")
.Text = Replace(.Text, "چ", "%DA%86")
.Text = Replace(.Text, "پ", "%D9%BE")
.Text = Replace(.Text, "ش", "%D8%B4")
.Text = Replace(.Text, "س", "%D8%B3")
.Text = Replace(.Text, "ي", "%DB%8C")
.Text = Replace(.Text, "ب", "%D8%A8")
.Text = Replace(.Text, "ل", "%D9%84")
.Text = Replace(.Text, "ا", "%D8%A7")
.Text = Replace(.Text, "ت", "%D8%AA")
.Text = Replace(.Text, "ن", "%D9%86")
.Text = Replace(.Text, "م", "%D9%85")
.Text = Replace(.Text, "ک", "%DA%A9")
.Text = Replace(.Text, "گ", "%DA%AF")
.Text = Replace(.Text, "ظ", "%D8%B8")
.Text = Replace(.Text, "ط", "%D8%B7")
.Text = Replace(.Text, "ز", "%D8%B2")
.Text = Replace(.Text, "ر", "%D8%B1")
.Text = Replace(.Text, "ذ", "%D8%B0")
.Text = Replace(.Text, "د", "%D8%AF")
.Text = Replace(.Text, "ئ", "%D8%A6")
.Text = Replace(.Text, "و", "%D9%88")
.Text = Replace(.Text, "ژ", "%DA%98")
.Text = Replace(.Text, " ", "%20")
.Text = Replace(.Text, "آ", "%D8%A2")
.Text = Replace(.Text, "ِ", "%D9%90")
.Text = Replace(.Text, "ُ", "%D9%8F")
.Text = Replace(.Text, "َ", "%D9%8E")
.Text = Replace(.Text, "ّ", "%D9%91")
End With
