richtextbox - Ôîðóì íà èñõîäíèêàõ

WWW.ÈÑÕÎÄÍÈÊÈ.ÐÓ cpp.sources.ru

java.sources.ru web.sources.ru soft.sources.ru

jdbc.sources.ru asp.sources.ru api.sources.ru

  Ôîðóì íà èñõîäíèêàõ
  Visual Basic
  richtextbox
ÑÏÐÎÑÈÒÜ  ÎÒÂÅÒÈÒÜ
ïðîôàéë | ðåãèñòðàöèÿ | faq

Àâòîð Òåìà:   richtextbox

aker13 îïóáëèêîâàí 24-01-2002 15:17 MSK
kak pomenyat kodirovku (programno) richtextbox-a
AlexR îïóáëèêîâàí 24-01-2002 16:24 MSK
Êîäèðîâêó òåêñòà ÷òî ëè?
cr îïóáëèêîâàí 24-01-2002 16:31 MSK
Option Explicit
Enum Code
Win = 1
Dos = 2
Koi = 3
Iso = 5
End Enum
Function Recode(Char As String, Src As Code, Dest As Code) As String
Const wDos As String = "°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ðÙÚÛÜÝÞßòóôõö÷øùñûüýþÿØú€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬®¯àáâãäåæçèéêëìíîï"
Const wIso As String = "°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×¢ÙÚÛÜÝÞßòóôõö÷øùñûüýþÿØú°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîï"
Const wKoi As String = "‘’‡²´§¦µ¡¨®¬ƒ„‰ˆ†€Š¯°«¥»¸± ¾¹º¶·ª©¢¤½³…‚ŒŽ‹™˜“›Ÿ—œž£–š”¿¼•áâ÷çäåöúéêëìíîïðòóôõæèãþûýÿùøüàñÁÂ×ÇÄÅÖÚÉÊËÌÍÎÏÐÒÓÔÕÆÈÃÞÛÝßÙØÜÀÑ"
Const wWin As String = "€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ"
Const NotRecodedChar As String = "?"
If Src = Dest Then
Recode = Char
Exit Function
End If
Dim t As String, i As Long, tt As String, a As Long, ss As String, ch As String
If Src = Win Then
t = Char
Else
Select Case Src
Case Koi: ss = wKoi
Case Dos: ss = wDos
Case Iso: ss = wIso
End Select
For i = 1 To Len(Char)
ch = Mid(Char, i, 1)
If Asc(ch) < 128 Then
t = t & ch
Else
a = InStr(1, ss, ch, vbBinaryCompare)
If a = 0 Then
t = t & NotRecodedChar
Else
t = t & Mid$(wWin, a, 1)
End If
End If
Next i
End If
If Dest = Win Then
Recode = t
Else
Select Case Dest
Case Koi: ss = wKoi
Case Dos: ss = wDos
Case Iso: ss = wIso
End Select
For i = 1 To Len(Char)
ch = Mid(t, i, 1)
If Asc(ch) < 128 Then
tt = tt & ch
Else
a = InStr(1, wWin, ch, vbBinaryCompare)
If a = 0 Then
tt = tt & NotRecodedChar
Else
tt = tt & Mid$(ss, a, 1)
End If
End If
Next i
Recode = tt
End If
End Function
aker13 îïóáëèêîâàí 25-01-2002 09:00 MSK
vse otlichno, tolko nemnogo poyasni? chto mne nujno sdelat? v dvux slovax
spas!!!
cr îïóáëèêîâàí 25-01-2002 09:58 MSK
Option Explicit
'To aker13
'
'Ýòà ôóíêöèÿ ïðåäíàçíà÷åíà äëÿ ïåðåêîäèðîâêè òåêñòà
'â win, koi, dos, iso è îáðàòíî.
'Âûçûâàåòñÿ îíà òàê: Recode (òåêñò,_êîòîðûé_íóæíî_ïåðåêîäèðîâàòü, èñõîäíàÿ_êîäè-
'ðîâêà, íóæíàÿ_êîäèðîâêà)
'Ïðèìåð: Recode (text1.text, win, dos)
'- ïðîèçîéäåò ïåðåêîäèðîâêà òåêñòà (text1) èç win â dos
'
'Âîò ïðèìåð÷èê ðàáîòû ôóíêöèè:
'Íà ôîðìå: text1, text2, command1
'Â ñâîéñòâàõ text1 è text2 çàäàé:
'Text1.MultiLine = True
'Text2.MultiLine = True
'Text1.ScrollBars = 2
'Text2.ScrollBars = 2
'Ýòî äëÿ óäîáñòâà.
'
'Ïðè íàæàòèè íà êíîïêó, ïðîèçîéäåò ïåðåêîäèðîâêà
'òåêñòà(text1) èç win â koi. Ïåðåêîäèðîâàííûé òåêñò
'âûâîäèòñÿ â text2
'
Enum Code1
win = 1
Dos = 2
koi = 3
Iso = 5
End Enum
Function Recode(Char As String, Src As Code1, Dest As Code1) As String
Const wDos As String = "°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ðÙÚÛÜÝÞßòóôõö÷øùñûüýþÿØú€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬®¯àáâãäåæçèéêëìíîï"
Const wIso As String = "°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×¢ÙÚÛÜÝÞßòóôõö÷øùñûüýþÿØú°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîï"
Const wKoi As String = "‘’‡²´§¦µ¡¨®¬ƒ„‰ˆ†€Š¯°«¥»¸± ¾¹º¶·ª©¢¤½³…‚ŒŽ‹™˜“›Ÿ—œž£–š”¿¼•áâ÷çäåöúéêëìíîïðòóôõæèãþûýÿùøüàñÁÂ×ÇÄÅÖÚÉÊËÌÍÎÏÐÒÓÔÕÆÈÃÞÛÝßÙØÜÀÑ"
Const wWin As String = "€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ"
Const NotRecodedChar As String = "?"
If Src = Dest Then
Recode = Char
Exit Function
End If
Dim t As String, I As Long, tt As String, a As Long, ss As String, ch As String
If Src = win Then
t = Char
Else
Select Case Src
Case koi: ss = wKoi
Case Dos: ss = wDos
Case Iso: ss = wIso
End Select
For I = 1 To Len(Char)
ch = Mid(Char, I, 1)
If Asc(ch) < 128 Then
t = t & ch
Else
a = InStr(1, ss, ch, vbBinaryCompare)
If a = 0 Then
t = t & NotRecodedChar
Else
t = t & Mid$(wWin, a, 1)
End If
End If
Next I
End If
If Dest = win Then
Recode = t
Else
Select Case Dest
Case koi: ss = wKoi
Case Dos: ss = wDos
Case Iso: ss = wIso
End Select
For I = 1 To Len(Char)
ch = Mid(t, I, 1)
If Asc(ch) < 128 Then
tt = tt & ch
Else
a = InStr(1, wWin, ch, vbBinaryCompare)
If a = 0 Then
tt = tt & NotRecodedChar
Else
tt = tt & Mid$(ss, a, 1)
End If
End If
Next I
Recode = tt
End If
End Function
Private Sub Command1_Click()
Screen.MousePointer = 11
Text2.Text = (Recode(Text1.Text, koi, win))
Screen.MousePointer = 0
End Sub
Private Sub Form_Load()
Text1.Text = "òåêñò äëÿ ïðîâåðêè, îí ïåðåêîäèðóåòñÿ â koi8-r, ïðè íàæàòèè íà êíîïêó. Îáðàòè âíèìàíèå êàê âûçûâàåòñÿ ôóíêöèÿ Recode!"
Text2.Text = ""
Command1.Caption = "Recode"
End Sub
Private Sub Form_Unload(Cancel As Integer)
Dim counter As Integer
Dim I As Integer
counter = Me.Height
Do: DoEvents
counter = counter - 10
Me.Height = counter
Me.Top = (Screen.Height - Me.Height) / 2
Loop Until counter <= 10
I = 15
counter = Me.Width
Do: DoEvents
counter = counter + I
Me.Width = counter
Me.Left = (Screen.Width - Me.Width) / 2
I = I + 1
Loop Until counter >= Screen.Width
End
End Sub
aker13 îïóáëèêîâàí 25-01-2002 10:05 MSK
rabotayet, kak nikogda! very very sankse!!!
aker13 îïóáëèêîâàí 25-01-2002 10:30 MSK
a kak, voobshe uznat kodirovku texta?
ÑÏÐÎÑÈÒÜ  ÎÒÂÅÒÈÒÜ
Ïåðåéòè:

E-mail | WWW.ÈÑÕÎÄÍÈÊÈ.RU

Powered by: Ultimate Bulletin Board, Freeware Version 5.10a
Purchase our Licensed Version- which adds many more features!
© Infopop Corporation (formerly Madrona Park, Inc.), 1998 - 2000.

Àâòîð	Òåìà: richtextbox
aker13	îïóáëèêîâàí 24-01-2002 15:17 MSK kak pomenyat kodirovku (programno) richtextbox-a
AlexR	îïóáëèêîâàí 24-01-2002 16:24 MSK Êîäèðîâêó òåêñòà ÷òî ëè?
cr	îïóáëèêîâàí 24-01-2002 16:31 MSK Option Explicit Enum Code Win = 1 Dos = 2 Koi = 3 Iso = 5 End Enum Function Recode(Char As String, Src As Code, Dest As Code) As String Const wDos As String = "°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ðÙÚÛÜÝÞßòóôõö÷øùñûüýþÿØú€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬®¯àáâãäåæçèéêëìíîï" Const wIso As String = "°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×¢ÙÚÛÜÝÞßòóôõö÷øùñûüýþÿØú°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîï" Const wKoi As String = "‘’‡²´§¦µ¡¨®¬ƒ„‰ˆ†€Š¯°«¥»¸± ¾¹º¶·ª©¢¤½³…‚ŒŽ‹™˜“›Ÿ—œž£–š”¿¼•áâ÷çäåöúéêëìíîïðòóôõæèãþûýÿùøüàñÁÂ×ÇÄÅÖÚÉÊËÌÍÎÏÐÒÓÔÕÆÈÃÞÛÝßÙØÜÀÑ" Const wWin As String = "€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ" Const NotRecodedChar As String = "?" If Src = Dest Then Recode = Char Exit Function End If Dim t As String, i As Long, tt As String, a As Long, ss As String, ch As String If Src = Win Then t = Char Else Select Case Src Case Koi: ss = wKoi Case Dos: ss = wDos Case Iso: ss = wIso End Select For i = 1 To Len(Char) ch = Mid(Char, i, 1) If Asc(ch) < 128 Then t = t & ch Else a = InStr(1, ss, ch, vbBinaryCompare) If a = 0 Then t = t & NotRecodedChar Else t = t & Mid$(wWin, a, 1) End If End If Next i End If If Dest = Win Then Recode = t Else Select Case Dest Case Koi: ss = wKoi Case Dos: ss = wDos Case Iso: ss = wIso End Select For i = 1 To Len(Char) ch = Mid(t, i, 1) If Asc(ch) < 128 Then tt = tt & ch Else a = InStr(1, wWin, ch, vbBinaryCompare) If a = 0 Then tt = tt & NotRecodedChar Else tt = tt & Mid$(ss, a, 1) End If End If Next i Recode = tt End If End Function
aker13	îïóáëèêîâàí 25-01-2002 09:00 MSK vse otlichno, tolko nemnogo poyasni? chto mne nujno sdelat? v dvux slovax spas!!!
cr	îïóáëèêîâàí 25-01-2002 09:58 MSK Option Explicit 'To aker13 ' 'Ýòà ôóíêöèÿ ïðåäíàçíà÷åíà äëÿ ïåðåêîäèðîâêè òåêñòà 'â win, koi, dos, iso è îáðàòíî. 'Âûçûâàåòñÿ îíà òàê: Recode (òåêñò,_êîòîðûé_íóæíî_ïåðåêîäèðîâàòü, èñõîäíàÿ_êîäè- 'ðîâêà, íóæíàÿ_êîäèðîâêà) 'Ïðèìåð: Recode (text1.text, win, dos) '- ïðîèçîéäåò ïåðåêîäèðîâêà òåêñòà (text1) èç win â dos ' 'Âîò ïðèìåð÷èê ðàáîòû ôóíêöèè: 'Íà ôîðìå: text1, text2, command1 'Â ñâîéñòâàõ text1 è text2 çàäàé: 'Text1.MultiLine = True 'Text2.MultiLine = True 'Text1.ScrollBars = 2 'Text2.ScrollBars = 2 'Ýòî äëÿ óäîáñòâà. ' 'Ïðè íàæàòèè íà êíîïêó, ïðîèçîéäåò ïåðåêîäèðîâêà 'òåêñòà(text1) èç win â koi. Ïåðåêîäèðîâàííûé òåêñò 'âûâîäèòñÿ â text2 ' Enum Code1 win = 1 Dos = 2 koi = 3 Iso = 5 End Enum Function Recode(Char As String, Src As Code1, Dest As Code1) As String Const wDos As String = "°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ðÙÚÛÜÝÞßòóôõö÷øùñûüýþÿØú€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬®¯àáâãäåæçèéêëìíîï" Const wIso As String = "°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×¢ÙÚÛÜÝÞßòóôõö÷øùñûüýþÿØú°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîï" Const wKoi As String = "‘’‡²´§¦µ¡¨®¬ƒ„‰ˆ†€Š¯°«¥»¸± ¾¹º¶·ª©¢¤½³…‚ŒŽ‹™˜“›Ÿ—œž£–š”¿¼•áâ÷çäåöúéêëìíîïðòóôõæèãþûýÿùøüàñÁÂ×ÇÄÅÖÚÉÊËÌÍÎÏÐÒÓÔÕÆÈÃÞÛÝßÙØÜÀÑ" Const wWin As String = "€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ" Const NotRecodedChar As String = "?" If Src = Dest Then Recode = Char Exit Function End If Dim t As String, I As Long, tt As String, a As Long, ss As String, ch As String If Src = win Then t = Char Else Select Case Src Case koi: ss = wKoi Case Dos: ss = wDos Case Iso: ss = wIso End Select For I = 1 To Len(Char) ch = Mid(Char, I, 1) If Asc(ch) < 128 Then t = t & ch Else a = InStr(1, ss, ch, vbBinaryCompare) If a = 0 Then t = t & NotRecodedChar Else t = t & Mid$(wWin, a, 1) End If End If Next I End If If Dest = win Then Recode = t Else Select Case Dest Case koi: ss = wKoi Case Dos: ss = wDos Case Iso: ss = wIso End Select For I = 1 To Len(Char) ch = Mid(t, I, 1) If Asc(ch) < 128 Then tt = tt & ch Else a = InStr(1, wWin, ch, vbBinaryCompare) If a = 0 Then tt = tt & NotRecodedChar Else tt = tt & Mid$(ss, a, 1) End If End If Next I Recode = tt End If End Function Private Sub Command1_Click() Screen.MousePointer = 11 Text2.Text = (Recode(Text1.Text, koi, win)) Screen.MousePointer = 0 End Sub Private Sub Form_Load() Text1.Text = "òåêñò äëÿ ïðîâåðêè, îí ïåðåêîäèðóåòñÿ â koi8-r, ïðè íàæàòèè íà êíîïêó. Îáðàòè âíèìàíèå êàê âûçûâàåòñÿ ôóíêöèÿ Recode!" Text2.Text = "" Command1.Caption = "Recode" End Sub Private Sub Form_Unload(Cancel As Integer) Dim counter As Integer Dim I As Integer counter = Me.Height Do: DoEvents counter = counter - 10 Me.Height = counter Me.Top = (Screen.Height - Me.Height) / 2 Loop Until counter <= 10 I = 15 counter = Me.Width Do: DoEvents counter = counter + I Me.Width = counter Me.Left = (Screen.Width - Me.Width) / 2 I = I + 1 Loop Until counter >= Screen.Width End End Sub
aker13	îïóáëèêîâàí 25-01-2002 10:05 MSK rabotayet, kak nikogda! very very sankse!!!
aker13	îïóáëèêîâàí 25-01-2002 10:30 MSK a kak, voobshe uznat kodirovku texta?