Ответы пользователя g0rd1

Можно ли посмотреть содержимое массива состоящего из объектов?

g0rd1 @Gordigev

Постигаю android разработку

Можно переопределить метод toString() у класса Star. А затем вызвать Arrays.toString(stars) в необходимом месте (предварительно импортировав java.util.Arrays). Пример:

Пример кода и результата его работы

import java.util.Arrays;

public class Test {

    public static void main(String[] args) {
        Star[] stars = new Star[4];
        stars[0] = new Star(0, 0);
        stars[1] = new Star(1, 0);
        stars[2] = new Star(0, 1);
        stars[3] = new Star(1, 1);
        System.out.println(Arrays.toString(stars));
    }

    static class Star {

        int x;
        int y;

        public Star(int x, int y) {
            this.x = x;
            this.y = y;
        }

        @Override
        public String toString() {
            return "Star{" +
                    "x=" + x +
                    ", y=" + y +
                    '}';
        }
    }

}

Результат работы кода:

[Star{x=0, y=0}, Star{x=1, y=0}, Star{x=0, y=1}, Star{x=1, y=1}]

Ответ написан более трёх лет назад

3 комментария

Бесплатная программа для мониторинга службы windows?

g0rd1 @Gordigev Автор вопроса

Постигаю android разработку

Решил вопрос давно. Забыл сюда выложить, но лучше поздно, чем никогда. Для решения вопроса был разработан скрипт на VBScript. Скрипт проверяет состояние службы, пишет её состояние в лог и если служба остановлена, то отправляет сообщение на электронную почту. Он далеко не идеально написан (кусочки кода дёргались из разных мест), но работает:

Скрипт

' ******************** НАСТРОЙКИ ********************

' Email'ы на которые нужно отправить сообщение об ошибке
arrayEmails = Array("Example1@mail.ru", _
                    "Example2@mail.ru", _
                    "Example3@mail.ru")

' Наименование отслеживаемой службы
Const strServiceName = "Fax"

' Имя почтового сервера (например, "smtp.mail.ru" для mail.ru)
Const strSmtpServer = "smtp.mail.ru"

' Порт почтового сервера
Const intSmtpPort = 465

' SMTP через SSL
Const strSmtpSsl = "yes"

' Использовать аутентификацию
Const strSmtpAuth = "yes"

' Email отправителя
Const strSendingEmail = "Example4@mail.ru"

' Пароль отправителя
Const strSmtpPass = "password"

' Путь к каталогу с логами
Const logsDirectoryPath = "c:\logs\"

' ***************** КОНЕЦ НАСТРОЕК ******************

' *************** ОСНОВНАЯ ПРОГРАММА ****************

Const SCRIPT_INFO_LEVEL = 0
Const SCRIPT_ERROR_LEVEL = 1
Const SERVICE_INFO_LEVEL = 2
Const SERVICE_ERROR_LEVEL = 3
Const MAX_ATTEMPTS = 3
Const strServiceRunStatus = "RUNNING"

Call writeInLog(SCRIPT_INFO_LEVEL, "Проверка состояние службы " & strServiceName)
strServiceStatus = getCommandOutput("%COMSPEC% /C sc query " & strServiceName)
intFindSymbol = InStr(1, strServiceStatus, strServiceRunStatus)
If intFindSymbol = 0 Then
	Call writeInLog(SCRIPT_INFO_LEVEL, "Cлужба " & strServiceName & " не работает")
	Call writeInLog(SERVICE_ERROR_LEVEL, strServiceStatus)
	strSubject = "Служба " & _
				 Chr(34) & strServiceName & Chr(34) & _
				 " не работает. " & _
				 Now() & "."
	strMessage = strSubject & vbNewLine & strServiceStatus
	emailsCounter = 0
	Do
		Call sendMail(arrayEmails(emailsCounter), strSubject, normalizeToHTML(strMessage))
		emailsCounter = emailsCounter + 1
	Loop Until (emailsCounter > UBound(arrayEmails))
Else
	Call writeInLog(SCRIPT_INFO_LEVEL, "Cлужба " & strServiceName & " работает")
	Call writeInLog(SERVICE_INFO_LEVEL, strServiceStatus)
End If
Call writeInLog(SCRIPT_INFO_LEVEL, "Скрипт завершил работу")

' ************ КОНЕЦ ОСНОВНОЙ ПРОГРАММЫ *************

' Процедура для отправки email сообщения
' Параметры:
' strDestinationEmail - email получателя
' strSubject - тема сообщения
' strMessageText - текст сообщения
Sub sendMail(strDestinationEmail, strSubject, strMessageText)
	On Error Resume Next
	Call writeInLog(SCRIPT_INFO_LEVEL, "Отправляем сообщение об ошибке на " & strDestinationEmail)
	Set objMessage = CreateObject("CDO.Message")
	objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
	objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = strSmtpServer
	objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = intSmtpPort
	If strSmtpAuth = "yes" Then
	objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'use '2' for NTLM authentication
	objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = strSendingEmail
	objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = strSmtpPass
	End If
	If strSmtpSsl = "yes" Then
	objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
	End If
	objMessage.Configuration.Fields.Update
	objMessage.Subject = strSubject
	objMessage.From = strSendingEmail
	objMessage.To = strDestinationEmail
	objMessage.HTMLBody = strMessageText
	attempt = 1
	Do
		Call writeInLog(SCRIPT_INFO_LEVEL, "Попытка отправки № " & attempt)
		Err.Clear
		objMessage.Send
		attempt = attempt + 1
	Loop Until ((attempt > MAX_ATTEMPTS) Or (Err.Number = 0))
	If Err.Number <> 0 Then
		Call writeInLog(SCRIPT_ERROR_LEVEL, "Не удалось отправить сообщение об ошибке на " & strDestinationEmail)
	Else
		Call writeInLog(SCRIPT_INFO_LEVEL, "Сообщение об ошибке успешно отправлено на " & strDestinationEmail)
	End If
	Err.Clear
End Sub

' Функция для замены символа переноса строки на "<br>"
' для корректного отображения сообщения.
' Возращает нормализованную строку
Function normalizeToHTML(str)
	arrayRows = Split(str, vbNewLine)
	normalizeToHTML = ""
	rowsCounter = 0
	Do
		normalizeToHTML = normalizeToHTML & arrayRows(rowsCounter) & "<br>"
		rowsCounter = rowsCounter + 1
	Loop Until (rowsCounter > UBound(arrayRows))
End Function

' Процедура для записи сообщения в лог
Sub writeInLog(level, str)
	On Error Resume Next
	Const FOR_APPENDING = 8
	Const PATH_NOT_FOUND_ERROR = 76
	separator = vbNewLine & _
				"********************************************************" & _
				vbNewLine
	If ((level = SERVICE_ERROR_LEVEL) Or (level = SERVICE_INFO_LEVEL)) Then
		strLogPath = logsDirectoryPath & "service_log_" & date & ".txt"
	Else
		strLogPath = logsDirectoryPath & "script_log_" & date & ".txt"
	End If
	Set objFSO = CreateObject("Scripting.FileSystemObject")
	Set objFile = objFSO.OpenTextFile(strLogPath, FOR_APPENDING, True)
	If Err.Number = PATH_NOT_FOUND_ERROR Then
		WScript.Echo "Путь " & _
					 Chr(34) & logsDirectoryPath & Chr(34) & _
					 " не найден." & vbNewLine & _
					 "Работа скрипта будет завершена."
		WScript.Quit
	End If
	objFile.Write Now()
	Select Case level
		Case SCRIPT_INFO_LEVEL
			objFile.Write " INFO: " & str
		Case SCRIPT_ERROR_LEVEL
			objFile.Write " ERROR: " & str
		Case SERVICE_INFO_LEVEL
			objFile.Write " INFO: " & vbNewLine & str
		Case SERVICE_ERROR_LEVEL
			objFile.Write " ERROR: " & vbNewLine & str
	End Select
	If ((level = SERVICE_ERROR_LEVEL) Or (level = SERVICE_INFO_LEVEL)) Then
		objFile.WriteLine separator
	Else
		objFile.WriteLine vbNewLine
	End If
	objFile.Close
End Sub

' Команда для получения результата выполнения cmd комманды
Function getCommandOutput(Command)
	Const Wait = 1
	Const Show = 0
	Const OutToFile = "TEMP.TXT"
	Const DeleteOutput = 1
	Const NoQuotes = 1
	On Error Resume Next
	Set f_objShell = CreateObject("Wscript.Shell")
	Set f_objFso = CreateObject("Scripting.FileSystemObject")
		'VARIABLES
		If OutToFile = "" Then OutToFile = "TEMP.TXT"
		tCommand = Command
		If Left(Command,1)<>"""" And NoQuotes <> 1 Then tCommand = """" & Command & """"
		tOutToFile = OutToFile
		If Left(OutToFile,1)<>"""" Then tOutToFile = """" & OutToFile & """"
		If Wait = 1 Then tWait = True
		If Wait <> 1 Then tWait = False
		If Show = 1 Then tShow = 1
		If Show <> 1 Then tShow = 0
		'RUN PROGRAM
		f_objShell.Run tCommand & ">" & tOutToFile, tShow, tWait
		Call changeEncoding(OutToFile, "CP866", "windows-1251")
		'READ OUTPUT FOR RETURN
		Set f_objFile = f_objFso.OpenTextFile(OutToFile, 1)
		tMyOutput = f_objFile.ReadAll
		f_objFile.Close
		Set f_objFile = Nothing
		'DELETE FILE AND FINISH FUNCTION
		If DeleteOutput = 1 Then
			Set f_objFile = f_objFso.GetFile(OutToFile)
			f_objFile.Delete
			Set f_objFile = Nothing
		End If
		getCommandOutput = tMyOutput
		If Err.Number <> 0 Then getCommandOutput = "<0>"
		Err.Clear
		On Error Goto 0
	Set f_objFile = Nothing
	Set f_objShell = Nothing
 End Function
  
 Sub changeEncoding(path, fromEnc, toEnc)
	Set str = CreateObject("ADODB.Stream")
	str.Type = 2
	str.Charset = fromEnc
	str.Open()
	str.LoadFromFile(path)
	Text = str.ReadText()
	str.Close()
	Set fs = CreateObject("Scripting.FileSystemObject")
	fs.DeleteFile(path)
	str.Charset = toEnc
	str.Open()
	str.WriteText(Text)
	str.SaveToFile path, 2
	str.Close()
 End Sub

Ответ написан более трёх лет назад

Комментировать

Как заменить в строке "\" на "\\"?

g0rd1 @Gordigev

Постигаю android разработку

String s1 = "C:\\1.jpg";
String s2 = s1.replace("\\", "\\\\");

Ответ написан более трёх лет назад

Комментировать

Можно ли посмотреть содержимое массива состоящего из объектов?

Бесплатная программа для мониторинга службы windows?

Как заменить в строке "\" на "\\"?

Войдите на сайт