1. VisualBasic / Говнокод #9566

    −108

    1. 1
    Replace(Replace(Replace(Replace(Replace(sht1.Cells(i, 4).Value, "(кратность 4 шт)", ""), "O.F.", ""), "D1ECO", ""), "DECO", ""), "SK", "")

    Удаляем из ячейки Excel одно из возможно встречающихся в ней слов.

    Говнокод или вполне нормальный трюк?

    Запостил: valemak, 28 Февраля 2012

    Комментарии (8) RSS

    • Быдлокод для не осиливших циклы и массивы.
      Ответить
    • Ну, для такого количества можно и без циклов с массивами, но развернуть в несколько строчек было бы полезно.
      s = s.Replace("www.somebadsite.ru", "");
      ...
      Ответить
    • Для уровня кодеров на VBA - вполне нормально.

      К тому же если в VBА объвить и инициализировать массив, а потом написать цикл, то кода получится больше.
      Ответить
    • lispish
      Ответить
    • эх, регулярку бы...
      но код не совсем говно-
      сам раньше примерно так же делал))
      Ответить
    • S = S.Replace(...).Replace(...).Replace(...)
      Ответить
    • з"JU!M?N!WM$K:B(I A!M"X$D)W)J K:N,J,V?L(C$I!Z F.GX.D$G)Q!U)D$EPD(K!U,CN!U)XI$B,R:O.E$E $H:J$G(W!L?M"B,H?H,H(B:QQ)G$VB(FH?O!WIV: O.J)M$L?F:I:I)F!Y T(S!U?M.J?Z(A:ZB$C"B.Y F S:O R)Y$V:I,E,X$KJ!VV"K:Z"X)H$B"K?D:Q)H:S?Y( J,U)S:C?J C)K,B!W)Q.E:O,Z,P$M,U,KR,X?OM:W)U.P!X M.Y?Q"P:J?A"V,M,W$G(C$N.W,X"C?PH$D(F MM:S!L!T!D?P?TI.G,K"S:AY!L"N"R:M(G)Z(O!G ,EK K"T.Z.H(M H W:I$H.LP$G.D.M.W,K?R"H:M.RN?F"M,Q!B$K.D: V!RF,T!Q(J.A U Z:Z:A,N:B?K?R$F.L)K$E:N"E)C,V:SQ$E.R,U I:J)V G,M(U$JF!O(U,E"T,ZKJ)T$FB:S?V:I JK?V Q$J"E"W)L!Y.Y$Q,F.XE!H"X:J!J(Y$CG.M E.AR(U,R,T?Y,QG!T:CL$W?VL:V:D)YD,H"J"K:X ,D(H:RZ"Q,V!OR(U(D,T$K$P!U:G?R.Y F,F?R(S.N)X:HY:L$T,Y?L L(S,X$CO,R.M)O$T:Y A"I"Y:R?L?E FB.F"E E,Q,T(K$H D.O!Q"F?Y:X!G)UG H?J.I$R(J L!M(W X:Y(GI T(J(N$G(D.X,U,S Y)W?U.Y!A(Q)I.Z$D)Z:OZ,F"Y$D:X M$F"Y?R P.U(P(VW:F?D"A.H!N W)Y(Y?A"C"ZU(K$R A,W.H:LS(W(I B.RH$S?P(J(R P!X!E(W OE F(D$P.K,B?E,Y?E"O:P.W"Y?DL.A:K?J(X,XK?N$ Z,Y?L.F?R(H R(EB)B"O:Z M$H"R?G!S!A?N(SJ E.R:H)Q"YZVX.F:T T!W.QA.K(V$F,L:I:U,F.G Y)P:HG"T$G?Y"T!V,V Q Y F E$G?P$R:S.H!U)Z"L:T$S(L(P.PQ S$X"P)ZA(PL C.EGO(R!F,YU"Z"F:W"L H,I)M(T)PY?P)H)J.S.L!O:V!V ZВEPLAWPCVLOXBBCLADMLYYRMXNZQKCJLWABNDAE JHZSREUSNEUYYPFMTUXZXGYZOCKFEQVYBDDXOLWK KJRXFENPEJYFUHXPGHRGJMAFPQUGVMXEARXRNUOV ADKBHOWOEZVQJVMRRABERVUKGYRJRYDTXXABCLSD WYTJNZNFIHAOOBRYFYVXZTJXMVNUBCQBQZNUVCXR OQGMUDWNRJYAIYNVSVURIGTLEAKFYGLTYKLUJXMA XOHGGUOMAWKPIGMWSLSSBYYKRYQMQOWEJSZMMFXZ SEGFMGIMOKJHQBIPS
      Ответить

    Добавить комментарий