import pyodbc
conn_str = (
r'DRIVER={Microsoft Access Driver (*.mdb, *.accdb)};'
r'DBQ=C:\MEGA\Programming\Data_Bases\Microsoft Access\Показания.accdb;'
)
cnxn = pyodbc.connect(conn_str)
cursor = cnxn.cursor()import pandas as pd
df = pd.DataFrame(columns=['Дата', 'Электроэнергия', 'Горячая вода', 'Холодная вода'])
cursor.execute('select * from TABLE')
i=0
for row in cursor.fetchall():
df.loc[i] = [row[0], row[1], row[2], row[3]]
i=i+1\begin{minipage}[h]{1\textwidth}
\begin{equation}
\overline{K_p} = \sqrt[n]{\prod K_\textup{chain}},
\end{equation}
\begin{tabular}{llll}
where & $\overline{K_p}$ & {---} & coefficient of growth; \\
\addlinespace
& $K_\textup{chain}$ & {---} & \begin{tabular}[t]{@{}l@{}}chain coefficients of growth;\end{tabular} \\
\addlinespace
& $n$ & {---} & \begin{tabular}[t]{@{}l@{}}number of chain coefficients.\end{tabular}
\end{tabular}
\end{minipage}
gost-numeric.bbx\bibliographystyle{gost-numeric.bbx}
\usepackage[parentracker=true,
backend=biber,
hyperref=false,
bibencoding=utf8,
style=numeric-comp,
language=auto,
autolang=other,
citestyle=gost-numeric,
defernumbers=true,
bibstyle=gost-numeric,
sorting=ntvy,
]{biblatex}
\addbibresource{library.bib}string[,] dataArr = CreateRectangularArray(arrList);static T[,] CreateRectangularArray<T>(IList<T[]> arrays)
{
if (arrays.Count == 0)
{
Console.WriteLine("Лист одномерных массивов arrays пуст (nullable). Из-за этого метод CreateRectangularArray не будет работать.");
int minorLength = 5;
T[,] ret = new T[arrays.Count, minorLength];
return ret;
}
else
{
int minorLength = arrays[0].Length;
T[,] ret = new T[arrays.Count, minorLength];
for (int i = 0; i < arrays.Count; i++)
{
var array = arrays[i];
if (array.Length != minorLength)
{
throw new ArgumentException("All arrays must be the same length");
}
for (int j = 0; j < minorLength; j++)
{
ret[i, j] = array[j];
}
}
return ret;
}
}string date1 = "2017-10-05";
DateTime Date1 = DateTime.Parse(date1);
string date2 = "2017-10-14";
DateTime Date2 = DateTime.Parse(date2);
DateTime incrementedDate = Date1;
while (incrementedDate < Date2)
{
incrementedDate = incrementedDate.AddDays(1);
Console.WriteLine(incrementedDate.ToString("yyyy-MM-dd"));
}HttpWebRequest получилось сделать:HttpWebRequest http = (HttpWebRequest)WebRequest.Create(pathToHtml);
WebResponse response = http.GetResponse();
Stream stream = response.GetResponseStream();
StreamReader sr = new StreamReader(stream);
string html = sr.ReadToEnd();
// Создание экземпляра локальной переменной «doc».
HtmlAgilityPack.HtmlDocument doc = new HtmlAgilityPack.HtmlDocument();
// Загрузка HTML кода в локальную переменную «doc».
doc.LoadHtml(html);
var x = doc.DocumentNode.SelectNodes(pathToHTMLTextNode).Elements("tr").ToList();strArray. Тип данных, хранимых в результирующем одномерном массиве - string.//Создаём приложение.
Microsoft.Office.Interop.Excel.Application ObjExcel = new Microsoft.Office.Interop.Excel.Application();
//Открываем книгу.
Microsoft.Office.Interop.Excel.Workbook ObjWorkBook = ObjExcel.Workbooks.Open(pathToFile, 0, false, 5, "", "", false, Microsoft.Office.Interop.Excel.XlPlatform.xlWindows, "", true, false, 0, true, false, false);
//Выбираем таблицу(лист).
Microsoft.Office.Interop.Excel.Worksheet ObjWorkSheet;
ObjWorkSheet = (Microsoft.Office.Interop.Excel.Worksheet)ObjWorkBook.Sheets[1];
// Указываем номер столбца (таблицы Excel) из которого будут считываться данные.
int numCol = 2;
Range usedColumn = ObjWorkSheet.UsedRange.Columns[numCol];
System.Array myvalues = (System.Array)usedColumn.Cells.Value2;
string[] strArray = myvalues.OfType<object>().Select(o => o.ToString()).ToArray();
// Выходим из программы Excel.
ObjExcel.Quit();pathToFile - путь к Excel файлу.string pathToFile = @"C:\Users\alexey\data.xlsx";numCol - номер столбца в таблице Excel из которого будет происходить чтение данных.strArray из типа данных string к другому типу данных, к примеру double, то это можно сделать нижеприведенным кодом:// Преобразование всех элементов одномерного массива
// strArray из строкового типа в тип double.
for (int i = 0; i < strArray.Length; i++)
DataArray[i] = Convert.ToDouble(strArray[i]);word = PasteDashes.SeparateWord(word);public static class PasteDashes
{
// Метод проверки, есть ли в строке гласные?
private static bool isNotLastSep(string subStr)
{
string vowel = "аеёиоуыэюя";
var b = false;
for (var i = 0; i < subStr.Length; i++)
{
if (vowel.IndexOf(subStr.Substring(i, 1)) != -1)
{
b = true;
break;
}
}
return b;
}
// Метод разбиения слова на слоги
private static List<string> addSeparator(string tmpS, List<string> sepList)
{
sepList.Add(tmpS);
//tmpS = "";
return sepList;
}
// Метод убирания знаков тире после первой буквы и перед последней (если там есть знаки тире)
private static string ConnectFirstAndLastLettersToSyllables(string word)
{
if (word[1] == '-')
word = word.Remove(1, 1);
if (word[word.Length - 2] == '-')
word = word.Remove(word.Length - 2, 1);
return word;
}
//Основной метод работающий по алгоритму Христова
public static string SeparateWord(string word)
{
string vowel = "аеёиоуыэюя";
string voiced = "бвгджзлмнрхцчшщ";
string deaf = "кпстф";
string brief = "й";
string other = "ьъ";
string consonant = "бвгджзйклмнпрстфхцчшщ";
string letter, syllable = "";
var syllables = new List<string>();
for (var i = 0; i < word.Length; i++)
{
letter = word.Substring(i, 1);
syllable += letter;
bool l;
if (word.Length != i + 1)
{
var k = word.Substring(i + 1, 1);
Regex rgx = new Regex("[А-Яа-я]");
l = rgx.IsMatch(k);
}
else
l = false;
if (l)
{
// Проверка на признаки конца слогов
// Если буква равна 'й' и она не первая и не последняя и это не последний слог
if (
(i != 0) &&
(i != word.Length - 1) &&
(brief.IndexOf(letter) != -1) &&
(isNotLastSep(word.Substring(i + 1)))
)
{
syllables = addSeparator(syllable, syllables);
syllable = "";
//continue;
}
// Если текущая гласная и следующая тоже гласная
// EDIT: этот блок необходим если задача - корректно разбить слово на фонетические слоги,
// и не нужен если задача - разбить слово на части, которые можно переносить
//if (
// (i < word.Length - 1)
// && (vowel.IndexOf(letter) != -1) &&
// (vowel.IndexOf(word.Substring(i + 1, 1)) != -1)
// )
//{
// syllables = addSeparator(syllable, syllables);
// syllable = "";
// // continue;
//}
// Если текущая гласная, следующая согласная, а после неё гласная
if (
(i < word.Length - 2) &&
(vowel.IndexOf(letter) != -1) &&
(consonant.IndexOf(word.Substring(i + 1, 1)) != -1) &&
(vowel.IndexOf(word.Substring(i + 2, 1)) != -1)
)
{
syllables = addSeparator(syllable, syllables);
syllable = "";
// continue;
}
// Если текущая гласная, следующая глухая согласная, а после согласная и это не последний слог
if (
(i < word.Length - 2) &&
(vowel.IndexOf(letter) != -1) &&
(deaf.IndexOf(word.Substring(i + 1, 1)) != -1) &&
(consonant.IndexOf(word.Substring(i + 2, 1)) != -1) &&
(isNotLastSep(word.Substring(i + 1)))
)
{
syllables = addSeparator(syllable, syllables);
syllable = "";
// continue;
}
// Если текущая звонкая или шипящая согласная, перед ней гласная, следующая не гласная и не другая, и это не последний слог
if (
(i > 0) &&
(i < word.Length - 1) &&
(voiced.IndexOf(letter) != -1) &&
(vowel.IndexOf(word.Substring(i - 1, 1)) != -1) &&
(vowel.IndexOf(word.Substring(i + 1, 1)) == -1) &&
(other.IndexOf(word.Substring(i + 1, 1)) == -1) &&
(isNotLastSep(word.Substring(i + 1)))
)
{
syllables = addSeparator(syllable, syllables);
syllable = "";
// continue;
}
// Если текущая другая, а следующая не гласная если это первый слог
if (
(i < word.Length - 1) &&
(other.IndexOf(letter) != -1) &&
((vowel.IndexOf(word.Substring(i + 1, 1)) == -1) ||
(isNotLastSep(word.Substring(0, i))))
)
{
syllables = addSeparator(syllable, syllables);
syllable = "";
//continue;
}
}
}
syllables = addSeparator(syllable, syllables);
string finalWord = string.Join("-", syllables);
finalWord = ConnectFirstAndLastLettersToSyllables(finalWord);
return finalWord;
}
}using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
using System.Net;
using System.IO;
using System.Net.Http;
using System.Xml.Linq;
namespace YandexTranslateConsole
{
class Program
{
static void Main(string[] args)
{
string translateWords = "Behind me";
string sURL = "https://translate.yandex.net/api/v1.5/tr/translate?key=~Мой ключ~&text=" + translateWords + "&lang=en-ru";
string Text;
HttpWebRequest req = (HttpWebRequest)HttpWebRequest.Create(sURL);
HttpWebResponse resp = (HttpWebResponse)req.GetResponse();
using (StreamReader stream = new StreamReader(
resp.GetResponseStream()))
{
Text = stream.ReadToEnd();
}
XDocument doc = XDocument.Parse(Text);
string hashValue = "";
foreach (XElement hashElement in doc.Descendants("text"))
{
hashValue = hashValue + (string)hashElement + " ";
Console.WriteLine(hashValue);
}
Console.ReadLine();
}
}
}Public Sub ConvertRowToTable()
Dim textString As String
Dim textArray() As String
textString = ActiveCell.Text 'Получаем строку из активной (выдененной пользователем) ячейки
textArray() = Split(textString) 'Разбиение строки на подстроки, которые будут храниться в элементах массива.
'Разбиение осуществлялось через пробелы
'Цикл объединения элементов массива, слов, разделенных ранее пробелами (дело в том, что функция Split, слова,...
'...разделенные пробелами, разносит в разные элементы массива, и эти слова необходимо объединять в один элемент массива
m = 0
For i = LBound(textArray) To UBound(textArray)
If i = 0 Then
i = 1
End If
Check1 = textArray(i - 1) Like "*[a-z]*" 'Проверка наличия буквенных символов в предыдущей строке элемента массива
Check2 = textArray(i) Like "*[a-z]*" 'Проверка наличия буквенных символов в текущей строке элемента массива
If Check1 And Check2 Then 'Если в строках предыдущего и текущего элементах массива содержиться буквенный текст, то...
textArray(i - 1) = textArray(i - 1) & " " & textArray(i) '...конкатенируем строки текущего и предыдудщего элементов массива
m = m + 1
For n = i To UBound(textArray) - m 'Цикл осуществляющий сдвиг всех элементов массива на m
textArray(n) = textArray(n + 1)
Next n
textArray(n) = "" 'Обнуляем строки последних ненужных элементов массива
i = i - 1 'Осуществляет возврат цикла назад, для повторной проверки одновременного наличия буквенных символов в строке,...
'...уже нового предыдущего элемента массива и текущего элемента массива
End If
Next i
'Цикл формирования таблицы из массива данных
j = 0
n = ActiveCell.Column 'Возвращает номер стобца активной ячейки
k = ActiveCell.Row + 1 'Возвращает номер строки активной ячейки и + 1
For i = LBound(textArray) To UBound(textArray)
If j >= 3 Then 'Если j >= 3, то переходим на новую строку и возвращаемся на изначальный столбец
j = 0 'возвращение на изначальный столбец
k = k + 1 'переход на новую строку
End If
textArray(i) = Replace(textArray(i), "(", "") 'Убираем ненужные скобки
textArray(i) = Replace(textArray(i), ")", "") 'Убираем ненужные скобки
Sheets(1).Cells(k, j + n) = textArray(i)
j = j + 1
Next i
End Sub<script type="application/ld+json">
{ "@context" : "http://schema.org",
"@type" : "Organization",
"url" : "http://www.your-company-site.com",
"logo" : "http://www.example.com/logo.png",
"contactPoint" : [
{ "@type" : "ContactPoint",
"telephone" : "+1-401-555-1212",
"contactType" : "customer service"
} ] }
</script>