Серый форум — VBS: Кодировка вывода сообщений

Re: VBS: Кодировка вывода сообщений

null@example.com (xsanekk) — Fri, 14 Jun 2013 12:28:34 +0000

В том то и дело нет, я пытаюсь автоматизировать ежедневный отчет, сам веб сервис вертится не у меня на серваках, я пробывал по разному но что то без успешно, может из файла считать и вставить? как вариант?

Re: VBS: Кодировка вывода сообщений

null@example.com (Rom5) — Fri, 14 Jun 2013 10:35:05 +0000

А саму выдаваемую форму у Вас есть возможность подправить?
Например - объявить charset в ее :

Re: VBS: Кодировка вывода сообщений

null@example.com (xsanekk) — Fri, 14 Jun 2013 05:09:29 +0000

к сожалению не получается так....

в форму вводятся вместо русского текста кракозябры

Re: VBS: Кодировка вывода сообщений

null@example.com (-TOXA-) — Thu, 13 Jun 2013 20:26:29 +0000

Я может не очень понял что надо, но с кодировкой можно попробовать ASCII...
Например "текст", будет как "chr(242)&chr(229)&chr(234)&chr(241)&chr(242)"..

По идее должно работать.. Или же использовать Escape, как написано участником badik, то "текст" будет написано как "%u0442%u0435%u043A%u0441%u0442"

Re: VBS: Кодировка вывода сообщений

null@example.com (badik) — Thu, 13 Jun 2013 13:35:01 +0000

Может использовать Escape ???

Encode a string of text, "escaping" all characters that are not allowable in web url address strings.
Syntax
Escape(String)
Key
String The string of text to convert to an encoded string for use with HTML data transfer.Note some web browsers will display URLs even without properly escaped characters. HTML with unescaped punctuation will fail validation.
Example
Option ExplicitDim strMessage
strMessage = "Sample text with (brackets) spaces & " & Chr(34) & "quotes" & Chr(34)
MsgBox strMessage& vbCR & Escape(strMessage), vbOkOnly+vbInformation, "Demo"

Re: VBS: Кодировка вывода сообщений

null@example.com (xsanekk) — Thu, 13 Jun 2013 13:04:37 +0000

К сожалению нет в общем доступе это крутится в локальной сети...

Re: VBS: Кодировка вывода сообщений

null@example.com (alexii) — Thu, 13 Jun 2013 12:41:35 +0000

alexii пишет:

…ссылку…

Re: VBS: Кодировка вывода сообщений

null@example.com (xsanekk) — Thu, 13 Jun 2013 11:54:40 +0000

Форма входа






    
        
            
                
                
                
            
            
                
            
        
    









    
        
        
    


    
     
        


    
    
        
        Логин: 
    
    
        
        Пароль: 
        
        
        

        Зарегистрироваться  || 
        Я забыл пароль

Re: VBS: Кодировка вывода сообщений

null@example.com (xsanekk) — Thu, 13 Jun 2013 11:49:00 +0000







    
        
            
                
                
                
            
            
                
                
                
                    Поручения
                    Истории
                    
                    
                        Отчет по сотрудникам
                        
                    

                    
                
                    
                    
                        
                        
                        
                            
                        
                    
                    
                
                    Моя карточка
                    

                    
                        ivanov 
                        
                            Список сотрудников
                            

                            
                            Настройки профиля
                            Выход
                        
                    
                
                
                    
                    
                        
                            
                                
                            
                        
                    
                    
                
                
                
            
        
    









    
        Иванов Иван Иванович
        
            
                Всего: 10
                На сегодня: 1
                Просрочено: 0
            
        
    


    
        
            
                ?
                Добавить поручение
            
            
                
                
                    
                        Название: *
                        
                        
                    
                    
                        Номер связи:
                        
                        Кем дано: *
                        
                    

                    
                        Приоритет:
                        
                        Дата поручения: *
                        
                    
                    
                        Процент выполнения:
                        

                        Срок исполнения: *
                        
                    
                    
                        Подробности:
                        
                    
                    
                        Комментарий:
                        
                    
                    
                
                Прикрепить файлы
                








    
    Внимание! Русские буквы и пробелы в имени загружаемого файла будут заменены на английский эквивалент. Максимальный объем загружаемого файла не должен превышать 20Mb. После загрузки файла нажмите кнопку «Сохранить».


            

            
                
                Отменить
            

        
    

    
        
             Добавить поручение
            Поручения    на 01 июня 2013 г.
        

        
            
                
                    
                    
                        
                            
                            


    
        
            
                
            
            Номер связи
            №
            Дата поручения
            Название поручения
            Приоритет
            % выполнения
            Срок исполнения
            Кем дано
            Оценка
            Комментарии

        
    
   

                            
                        
                    
                
            
            
                
                    
                    
                    
                    Распечатать список
                
            
        
        
            
            
                Выберите поручение из списка

Re: VBS: Кодировка вывода сообщений

null@example.com (alexii) — Thu, 13 Jun 2013 11:15:41 +0000

А ссылку на эту конкретную страницу привести можете?

VBS: Кодировка вывода сообщений

null@example.com (xsanekk) — Thu, 13 Jun 2013 11:12:43 +0000

Добрый день! Облазил весь интернет и форумы. В общем необходимо в веб форму вставлять русские буквы, а вместо них кодировка не та - кракозябры, по умолчанию в системе установлен англ так надо не спрашивайте почему, винда 7, подскажите пожалуйста что делать, вот это кусок кода

AddForm.elements("id_title").value = ("Текст")

Вот получается сохранить в нормальной кодировке, но мне надо вставлять в форму а не сохранять в файл!


Set st = CreateObject("ADODB.Stream")
st.Type=2
st.Open
st.Charset = "windows-1251"
st.WriteText("текст")

И еще вопрос как сделать условие если есть форма входа, ну логин и пароль, то авторизоваться, если нет то продолжить выполнение скрипта? Кусок кода для авторизации написал, а вот условие никак не могу сделать, помогите пожалуйста!

Вот весь код скрипта... все работает кроме кодировки....


Dim objFSO,DayDate, DateEnd, w, f, st, objFile, Text, WshShell
Set objIE = CreateObject("InternetExplorer.Application")
set WshShell = WScript.CreateObject("WScript.Shell") 
objIE.Visible = false
objIE.Navigate "http://мойсайт.ru/"

While objIE.Busy
    WScript.Sleep 200
Wend

   DD=Day(Now())                         
    If DD < 10 Then
       DD = "0" & DD                        
    End If
   MM=Month(Now())
    If MM < 10 Then
       MM="0" & MM                         
    End If
   GG=Year(Now())
            DayDate = DD & "." & MM & "." & GG
            If DD = 10 Then
                DD1 = "0" & DD  
            End If
                DateEnd = GG & "-" & MM & "-" & DD    

dtNow = Now()
weekDayNow = WeekDay(dtNow)

Select Case weekDayNow
    Case 1 ' Вс'
        diffDay = -2
    Case 2 ' Пн'
        diffDay = -3
    Case Else
        diffDay = -1
End Select

dtPrev = DateAdd("w", diffDay, dtNow)
    MM1 = Mid(dtPrev,4,2)
    DD1 = Left(dtPrev, 2)
DateAdd1 = GG & "-" & MM1 & "-" & DD1

WScript.Sleep 200
objIE.Document.All.Item("Add").click
Set AddForm = objIE.Document.forms("AddTaskForm")
Set st = CreateObject("ADODB.Stream")
st.Type=2
st.Open
st.Charset = "windows-1251"
st.WriteText("текст")
AddForm.elements("id_title").value = ("Текст" & " " & DayDate)
AddForm.elements("id_author").value = "89"
AddForm.elements("id_progress").value = "100"
AddForm.elements("id_text").value = ("Текст")
AddForm.elements("id_date_add").value = (DateAdd1)
AddForm.elements("id_date_end").value = (DateEnd)
'AddForm.Submit

'objIE.Left       = 200
'objIE.Top        = 200
'objIE.Height     = 768
'objIE.Width      = 1024
objIE.Visible = true
objIE.FullScreen = true

Название: *
Номер связи:		Кем дано: *
Приоритет:		Дата поручения: *
Процент выполнения:		Срок исполнения: *
Подробности:
Комментарий: