ขอด้วยคนครับ

ขอด้วยคนครับ
[email protected]
ขอบคุณมากครับ

170. scrop ขอด้วยคนครับ

อ้างถึงจาก: สุ ด ห ล่ อ ™ ใน 08 สิงหาคม 2010, 22:51:27

อ้างถึงจาก: scrop ใน 08 สิงหาคม 2010, 22:08:15

โค้ด เลือก ขยาย


        Dim dataInput(0 To 4) As Integer
        Dim operText(0 To 3) As String
        Dim operIndex As Integer
        Dim strResult As String

        operText(0) = "+"
        operText(1) = "-"
        operText(2) = "*"
        operText(3) = "/"

        dataInput(0) = Val(TextBox1.Text)
        dataInput(1) = Val(TextBox2.Text)
        dataInput(2) = Val(TextBox3.Text)
        dataInput(3) = Val(TextBox4.Text)
        dataInput(4) = Val(TextBox5.Text)

        strResult = "((((" & dataInput(0) & " "
        For i = 1 To 4
            strResult &= operText(Int(Rnd() * 4)) & " " & dataInput(i) & ")"
        Next
        MsgBox(strResult)

        Dim result = New DataTable().Compute(strResult, Nothing)

        MsgBox(strResult & " : " & result)


พออ่านดูแล้วท่าทางจะสนุก ก็เลยลองเขียนโปรแกรมขึ้นมา ไม่รู้ว่าจะตอบความตั้งใจแรกได้อยู่หรือเปล่าครับ

ได้แล้วครับ ขอบคุณมากครับ ^^
+1 ให้แล้วครับ

ขอบคุณครับ 

อ้างถึงจาก: bouy2527 ใน 08 สิงหาคม 2010, 20:48:26
+1 ท่าน scrop

เพิ่งเคยเห็น

ขอบคุณครับ 

คิดเอาตัวอย่างนี้ไปประยุกต์ได้ครับ

     $arr1 = array(1,2,3,4,5,6,7,8,9,10);
     $arr2 = array(1,2,5);

     $result = array_diff($arr1,$arr2);

     print_r($result);



        Dim dataInput(0 To 4) As Integer
        Dim operText(0 To 3) As String
        Dim operIndex As Integer
        Dim strResult As String

        operText(0) = "+"
        operText(1) = "-"
        operText(2) = "*"
        operText(3) = "/"

        dataInput(0) = Val(TextBox1.Text)
        dataInput(1) = Val(TextBox2.Text)
        dataInput(2) = Val(TextBox3.Text)
        dataInput(3) = Val(TextBox4.Text)
        dataInput(4) = Val(TextBox5.Text)

        strResult = "((((" & dataInput(0) & " "
        For i = 1 To 4
            strResult &= operText(Int(Rnd() * 4)) & " " & dataInput(i) & ")"
        Next
        MsgBox(strResult)

        Dim result = New DataTable().Compute(strResult, Nothing)

        MsgBox(strResult & " : " & result)


พออ่านดูแล้วท่าทางจะสนุก ก็เลยลองเขียนโปรแกรมขึ้นมา ไม่รู้ว่าจะตอบความตั้งใจแรกได้อยู่หรือเปล่าครับ

อ้างถึงจาก: peam1234 ใน 08 สิงหาคม 2010, 18:54:34
ไม่ใช่ชื่อโฟลเดอร์เป็นข้อความครับที่ไม่เอามาหมดเพราะยาวมากกกกกกกกกกกกกกกกกกกกกกกก  

เพิ่มให้อีกหน่อยละกันเหอๆ

\u0e01\u0e32\u0e23\u0e40\u0e21\u0e37\u0e2d\u0e07<\/em>
12.34 \u0e19. \"\u0e2d\u0e20\u0e34\u0e2a\u0e34\u0e17\u0e18\u0e34\u0e4c\"\u0e0a\u0e27\u0e19\u0e1b\u0e23\u0e30\u0e0a\u0e32\u0e0a\u0e19\u0e16\u0e27\u0e32\u0e22\u0e23\u0e48\u0e27\u0e21\u0e1e\u0e23\u0e30\u0e1e\u0e23\u0e2d\u0e2d\u0e19\u0e44\u0e25\u0e19\u0e4c \"\u0e2a\u0e21\u0e40\u0e14\u0e47\u0e08\u0e1e\u0e23\u0e30\u0e19\u0e32\u0e07\u0e40\u0e08\u0e49\u0e32\u0e2f\" \u0e1e\u0e23\u0e49\u0e2d\u0e21\u0e08\u0e31\u0e14\u0e07\u0e32\u0e19 \"\u0e21\u0e2b\u0e01\u0e23\u0e23\u0e21\u0e40\u0e17\u0e34\u0e14\u0e44\u0e17\u0e49\u0e23\u0e32\u0e0a\u0e34\u0e19\u0e35

เป็นรหัส Unicode ครับ ใช้สำหรับแทนอักษรภาษา ชุดที่เห็นนี้เป็นภาษาไทย เราเขียนโปรแกรมภาษาจาวาแล้วสั่งให้พิมพ์ออกมาก็อ่านได้ครับ
หรือเครื่องมือสำหรับการอ่าน Unicode อ้อที่เห็นข้างบนจะเป็น Unicode แบบฐานสิบหกครับ

ตัวอย่างโปรแกรมจาวา

public static void main(String[] args) {
       // TODO code application logic here
       String str = "\u0e01\u0e32\u0e23\u0e40\u0e21\u0e37\u0e2d\u0e07</em> ";
        str += "12.34 \u0e19. \u0e2d\u0e20\u0e34\u0e2a\u0e34\u0e17";
        str += "\u0e18\u0e34\u0e4c\"\u0e0a\u0e27\u0e19\u0e1b\u0e23\u0e30";
        str += "\u0e0a\u0e32\u0e0a\u0e19\u0e16\u0e27\u0e32\u0e22\u0e23";
        str += "\u0e48\u0e27\u0e21\u0e1e\u0e23\u0e30\u0e1e\u0e23\u0e2d";
        str += "\u0e2d\u0e19\u0e44\u0e25\u0e19\u0e4c \"\u0e2a\u0e21";
        str += "\u0e40\u0e14\u0e47\u0e08\u0e1e\u0e23\u0e30\u0e19\u0e32\u0e07";
        str += "\u0e40\u0e08\u0e49\u0e32\u0e2f\" \u0e1e\u0e23\u0e49\u0e2d\u0e21";
        str += "\u0e08\u0e31\u0e14\u0e07\u0e32\u0e19 \"\u0e21\u0e2b\u0e01\u0e23";
        str += "\u0e23\u0e21\u0e40\u0e17\u0e34\u0e14\u0e44\u0e17\u0e49\u0e23\u0e32\u0e0a\u0e34\u0e19\u0e35";
       System.out.println(str);
   }
ผลลัพธ์
  การเมือง</em> 12.34 น. อภิสิทธิ์"ชวนประชาชนถวายร่วมพระพรออนไลน์ "สมเด็จพระนางเจ้าฯ" พร้อมจัดงาน "มหกรรมเทิดไท้ราชินี

ดีใจด้วยครับ พอดีลองเขียนดูก็เลยขอเสนออีกแนวทางหนึ่งครับ  เผื่อบางโอกาสได้ใช้ครับ

         <table border="1">
            <thead>
                <tr>
                    <th>No.</th>
                    <th>Name</th>
                </tr>
            </thead>
            <tbody>
                <?php
                    $con = mysql_connect("127.0.0.1","xroot","2000");
                    if (!$con)
                      {
                      die('ติดต่อฐานข้อมูลไม่ได้: ' . mysql_error());
                      }
                    mysql_select_db("websitedb", $con);
                    $result = mysql_query("SELECT * FROM tmpname");

                    $i = 0;
                    for($i = 1; $i <= 10; ++$i){
                ?>
                <tr>
                    <td><?php echo $i; ?></td>
                    <td>
                        <select name=\"teacher\"><option></option>"
                        <?php
                            while($row = mysql_fetch_array($result))
                              {
                              echo "<option value=\"".$row['id']."\">".$row['name']."</option>";
                              }
                              mysql_data_seek($result, 0);
                        ?>
                        </select>
                    </td>
                </tr>
                <?php
                    }
                    mysql_close();
                ?>
            </tbody>
        </table>
:

ดู ดู ก็น่าจะออกมาอันเดียวครับ
จากเดิม
        }
   echo "</select></td></tr>";
?>

ท่านลองเปลี่ยนเป็น(สลับบรรทัดกันครับ)
   echo "</select></td></tr>";
   }
?>

ดูผลและดู HTML Code ตอนแสดงออกมาที่ Browser ประกอบกันทั้งสองอย่างด้วยจะดีครับ

ผมเคยเห็นครั้งหนึ่งตอนผมติดตั้ง Joomla จากนั้นผมก็ไปทบทวนข้อมูลให้ถูกต้องเกี่ยวกับ FTP  พวก user password root host port ftp_enable ที่ไฟล์ configuration.php ครับ

เท่าที่เคยเจอปัญหาเกี่ยวกับภาษาไทยกับ PHP ที่ออกมา ?? จุดแรกที่ผมจะดูก็เป็นที่

Tag meta
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8" />
จะอยู่ประมาณส่วนบนของไฟล์ HTML
<html>
   <head>
   <meta http-equiv="Content-Type" content="text/html; charset=UTF-8" />
   <meta ...>
  </head>
<body>
...
</body>
</html>


ซึ่งอาจจะถูกกำหนดไว้ที่ส่วนของ Template หรือใน Script บางไฟล์ สังเกตที่ UTF-8 ครับ
ถ้าเป็นอย่างอื่นก็ลองเปลี่ยนเป็น UTF-8 ดูครับ หรือไม่มีก็ลองเพิ่มบรรทัดนี้เข้าไปดูครับ

ถ้าภาษาไทยแสดงออกมาก็สำเร็จครับ แต่ถ้ายังไม่ได้ต้องดูจุดอื่นต่อไปครับ 
หรือจะค้นหาใน google ก็ลองพิมพ์"php ภาษาไทย" ดูครับ

ทดลองอีกสักทางเลือกหนึ่งครับ

update Category as A, Category as B set A.Position = 3, B.Position = 2 where A.Position = 2 and B.Position = 3

ก็ใช้ได้ดีครับ