Visual Basic, .NET, ASP, VBScript
 

   
 

: :

, , ?
 
     

- -

: 1 |

 

  : JScript : 10.12.10 11:53  

:  ozzymous
, :

, JScript , . , JScript . ANSI, " ". JScript'a WSH?

.

  : 6  

: 1
:
 Just



: 4
: 330
  | | #1 : 10.12.10 13:48
?)
vbs
  1.  
  2. Dim objADOStream: Set objADOStream = CreateObject("ADODB.Stream")
  3. objADOStream.Type=2
  4. objADOStream.Open
  5. objADOStream.Charset = "Windows-1251"
  6. objADOStream.WriteText("")
  7. objADOStream.SaveToFile("c:\1.txt")
  8. Set objADOStream = Nothing


js
http://www.avkuzmin.ru/2008/04/blog-post_18.html

: 2
:
 ozzymous



: 1
: 3
  | | #2 : 10.12.10 15:03
, )
, !

: 3
:
 Targon



ICQ: 122555252 

: 0
: 1
  | | #3 : 11.12.10 15:32
:

alf = "Ũ"
dos = "񦧨"

function ConvSTR(str,sin,sout)
{
 for(j=0;j<str.length;j++) for(i=0;i<alf.length;i++)
  if (str.charAt(j)==sin.charAt(i)) { str=str.substring(0,j) + sout.charAt(i) + str.substring(j+1,str.length); break }
 return str
}

function ConvANSI2DOS(str) { return ConvSTR(str,alf,dos) }
function ConvDOS2ANSI(str) { return ConvSTR(str,dos,alf) }

: 4
:
 Just



: 4
: 330
  | | #4 : 12.12.10 21:13
...
vb ( ).
vbs - - vb
  1.  
  2. Private Sub Form_Load()
  3. Dim sWin As String, sDos As String
  4. sWin = "Ũ"
  5. sDos = "񦧨"
  6. MsgBox ConvChr("ਢ ! ", sDos, sWin)
  7. End Sub
  8.  
  9. Private Function ConvChr(sString As String, sChrInput As String, sChrOutput As String)
  10. Dim j As Integer, i As Integer
  11. For j = 1 To Len(sString)
  12.   For i = 1 To Len(sChrInput)
  13.     If Mid$(sString, j, 1) = Mid$(sChrInput, i, 1) Then
  14.       Mid$(sString, j, 1) = Mid$(sChrOutput, i, 1)
  15.       Exit For
  16.     End If
  17.   Next
  18. Next
  19. ConvChr = sString
  20. End Function

: 5
:
 ozzymous



: 1
: 3
  | | #5 : 13.12.10 12:15
, . .
, .. , - .

: 6
:
 ozzymous



: 1
: 3
  | | #6 : 27.12.10 09:53
!

: 1 |



Copyright 2002-2011 VBNet.RU |