- 1
- 2
if doc_lang='UA' then filename:=ExtractFileDir(Application.ExeName)+'/docs/sales_slip_MS_UA.xlt';
if doc_lang='RU' then filename:=ExtractFileDir(Application.ExeName)+'/docs/sales_slip_MS_RU.xlt';
Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
+104
if doc_lang='UA' then filename:=ExtractFileDir(Application.ExeName)+'/docs/sales_slip_MS_UA.xlt';
if doc_lang='RU' then filename:=ExtractFileDir(Application.ExeName)+'/docs/sales_slip_MS_RU.xlt';
Классика жанра, и так пол проги((((((
+131
<i style="background-image: url(.......);"/>
Взято с facebook.com
Не знаю, какой глубинный смысл в выборе тега i для вставки картинки, который совершенно для этого не предназначен. Есть же div и span. Может это как-то нужно для отметания веб роботов, а может просто захотелось извратиться
+163
long Date :: ConvertToDays()
{
int M=0,Y=0;
for(int i=2;i<=m_Year;i++)
{
if((i%4 == 0) && (i%100 !=0) || (i%400==0))Y+=366;
else Y+=365;
}
for(i=2;i<=m_Month;i++){
if (i == 1)M=0;else
if ((((m_Year%4 == 0) && (m_Year%100 !=0) || (m_Year%400==0)) && (i == 3)))M+=29;else
if ((((m_Year%4 != 0) || ((m_Year%100 ==0) && (m_Year%400 !=0))) && (i == 3)))M+=28;else
if ((i == 2) || (i == 4) || (i == 6) || (i == 8) || (i == 9) || (i == 11))M+=31;else
if ((i == 5) || (i == 7) || (i == 10) || (i == 12))M+=30;
}
return m_Day+M+Y;
}
Взято с forum.xakep.ru
+159
int makedata(int id,int part,void *d,int datalen,void *buf)
{
//packet struct :
// code = short int, lenght = shotr int, id = int, numofpart = int, data = 1024
int packlen = sizeof(short int)*2 + sizeof(int)*2 + datalen;
char *tbuf = new char [packlen];
char* tbufptr = tbuf;
*((short int *)tbufptr) = data; //first field
(short int *)tbufptr++;
*((short int *)tbufptr) = packlen; //second field
(short int *)tbufptr++;
*((int *)tbufptr) = id;
(int *)tbufptr++;
*((int *)tbufptr) = part;
(int *)tbufptr++;
*((short int *)tbufptr) = datalen;
(short int *)tbufptr++;
memcpy((void*)tbufptr,d,datalen);
buf=tbuf;
return packlen;
}
fileinfo* getask(void *b)
{
fileinfo *fi = new fileinfo();
char *bufptr = (char*)b;
(short int*)bufptr++;
short int plen = *((short int*)bufptr);
(short int*)bufptr++;
fi->numofpart = *((int*)bufptr);
(int*)bufptr++;
fi->filelenght = *((int*)bufptr);
(int*)bufptr++;
int filelen = plen-(bufptr-(char*)b);
fi->filename = new char[filelen];
strncpy(fi->filename,bufptr,filelen);
return fi;
}
Вместо того, что бы воспользоваться структурой, забиваем всё ручками.
+117
private XmlNode GetListItemsXML(bool _flag, string _param, SPList _list)
{
SPQuery oEmptyQuery = new SPQuery();
SPListItemCollection spliColl;
XmlReaderSettings sett = new XmlReaderSettings();
Stream stream;
XmlReader reader;
XmlDocument listItems = new XmlDocument();
string str = "";
try
{
switch (_flag)
{
case true:
//select division
oEmptyQuery.Query = "<Where><Eq><FieldRef Name=\"URL\"/><Value Type=\"Text\">" + _param + "</Value></Eq></Where>";
spliColl = _list.GetItems(oEmptyQuery);
str = c_my_headFile + spliColl.Xml;
str.Replace("\r\n", "");
stream = new MemoryStream(new UTF8Encoding(true).GetBytes(str));
sett.ConformanceLevel = ConformanceLevel.Auto;
reader = XmlReader.Create(new StringReader(str), sett);
listItems.LoadXml(str);
return listItems.SelectSingleNode("xml").ChildNodes[1].ChildNodes[0];
//return listItems.SelectSingleNode("xml").ChildNodes[1];
case false:
//select articles
//_x0420__x0430__x0437__x0434__x04
oEmptyQuery.Query = "<Where><Eq><FieldRef Name=\"_x0420__x0430__x0437__x0434__x04\" LookupId=\"TRUE\" /><Value Type=\"Lookup\">" + _param + "</Value></Eq></Where>";
spliColl = _list.GetItems(oEmptyQuery);
str = c_my_headFile + spliColl.Xml;
str.Replace("\r\n", "");
stream = new MemoryStream(new UTF8Encoding(true).GetBytes(str));
sett.ConformanceLevel = ConformanceLevel.Auto;
reader = XmlReader.Create(new StringReader(str), sett);
listItems.LoadXml(str);
//return listItems.SelectSingleNode("xml").ChildNodes[1].ChildNodes[0];
return listItems.SelectSingleNode("xml").ChildNodes[1];
}
}
catch (XmlException)
{
return null;
}
catch (Exception)
{
return null;
}
return null;
}
Метод, у которого говорящая сигнатура. Увидев ее можно сразу понять что делает этот мегакусок.
Если кто-нибудь поймет зачем создается экземпляр ридера - объясните. Блин я не понял, честно... xD
(SPQuery и др. это опять же SharePoint API.)
+115
private string ContentTransformation(string _xmlContent, string _xsltScheme)
{
try
{
XmlReaderSettings xmlRS = new XmlReaderSettings();
XPathDocument doc = new XPathDocument(XmlReader.Create(new StringReader(_xmlContent), xmlRS));
XPathNavigator nav = doc.CreateNavigator();
XmlReader reader = XmlReader.Create(new StringReader(nav.OuterXml));
reader.MoveToContent();
System.IO.StringReader strRead = new StringReader(_xsltScheme);
XslCompiledTransform xslt = new XslCompiledTransform();
xslt.Load(XmlReader.Create(strRead));
// Transform the node fragment.
StringWriter strW = new StringWriter();
XmlWriterSettings wrSet = new XmlWriterSettings();
wrSet.ConformanceLevel = ConformanceLevel.Auto;
XmlWriter xmlW = XmlWriter.Create(strW, wrSet);
xslt.Transform(reader, xmlW);
xmlW.Close();
return strW.ToString();
}
catch (ArgumentNullException anEx)
{
return "XSL преобразование не выполнено!<br>Параметр равен null.<br>" + anEx.Message;
}
catch (XsltException xsltEx)
{
return "XSL преобразование не выполнено!<br>Проверте XSL схему.<br>" + xsltEx.Message;
}
catch (Exception ex)
{
return ex.Message;
}
}
Учимся применять XSL шаблон к XML данным, и между делом поглядываем в сий гениальный шедевр - в нем вся истина о том, как четко и со вкусом, а главное элегантно выполнить эту задачу. Да еще и обработка ошибок сделана! Шикарный кусок.
+116
private string makeUrlAbsolute(string url)
{
isWebPartPropertiesError = false;
try
{
if (!string.IsNullOrEmpty(url))
{
bool shouldCheckForRootWeb = false;
if (!url.StartsWith("http://"))
{
if (url.StartsWith("//")) throw new Exception("Неправильная ссылка");
if (!url.StartsWith("/")) url = url.Insert(0, "/");
url = url.Insert(0, SPContext.Current.Site.Url);
shouldCheckForRootWeb = true;
}
using (SPSite site = new SPSite(url))
{
using (SPWeb web = site.OpenWeb())
{
if (!url.Contains(web.Url)) isWebPartPropertiesError = true;
if (shouldCheckForRootWeb && site.Url.Equals(web.Url)) isWebPartPropertiesError = true;
return url;
}
}
}
else return "";
}
catch
{
isWebPartPropertiesError = true;
return "";
}
//this.CatalogIconImageUrl = this.ClassResourcePath + "/Test.ico";
//this.TitleIconImageUrl = this.ClassResourcePath + "/Test.ico";
}
Продолжаю серию мегаполезных хелперов.
Эта страхолюдина найдена там же где и пред. кусок.
Судя по названию, она должна делать урл абсолютным...
(SPSite и др., это SharePoint API если кто не в курсе)
+115
private string GetSubURI(string _stringURI)
{
if (_stringURI.IndexOf("http://") > -1)
{
int counter = 0;
int chNumber = -1;
for (int i = 0; i <= _stringURI.Length - 1; i++)
{
if (_stringURI[i] == '/')
counter++;
if (counter == 3)
{
chNumber = i + 1;
break;
}
}
return _stringURI.Substring(chNumber, (_stringURI.Length - chNumber) - 1);
}
else
{
int chNumber = -1;
for (int i = _stringURI.Length - 1; i >= 0; i--)
{
if (_stringURI[i] == '/')
{
chNumber = i;
break;
}
}
if (chNumber != -1)
return _stringURI.Substring(0, chNumber);
else
return "";
}
}
Элегантный адаптер строк для другой функции, кушающей урлы, возвращаемые этим шедевром.
Это хозяйство досталось в наследство от уволенного "разработчика .NET".
Я сохранил, вдруг пригодиться .... и не прогадал :)
+144
switch ($mode) {
default:
<не интересный код пропущен>
break;
}
Догайтесь с какого это проекта?
Я бы не запостил, если бы не увидел на хабре сообщение от некоторого striker_vlad:
"буду рад, если найдете там что-то, что можно будет напостить на сам сайт ;)"
+157
var Class = function () {
this.method = function () {
/* … */
};
};
Class = new Class();