DSolve[-(y[x]*(-1 + 2*Log[x]*y[x])) + x*Derivative[1][y][x] == 0,y[x],x]