如何对列出的材料进行排列,得到最节约的方法,设原材料的长度为8米定尺
要求：1、得到8米定尺的材料所用的数量。如8米材料共需16根
2、列出每种材料组合的结果 如第1根 用于108号、109号、110号、112号……材料剩余50mm
3、最好将同一编号的材料放到一起（在长度允许的情况下），如数量8的先和数量8的，其次数量4的……
4、求出最经济的一种算法

请高手门多多赐教，在这里谢谢了！



以下是需进行排列的数据的一部分，其它在附件中

ITikoc09.txt (3.72 KB) [求助]如何求出最经济的方法

塔号 编号 规格 数量 长度(mm)
101号 1019 L40X3 4 1116
101号 1020 L40X3 4 832
101号 1021 L40X3 4 978
101号 1022 L40X3 4 426
101号 1024 L40X3 2 1545
101号 1025 L40X3 2 1545
101号 1028 L40X3 4 644
101号 1042 L40X3 2 1580
101号 1043 L40X3 2 1415
101号 1047 L40X3 1 1388
101号 1048 L40X3 2 1233
101号 1051 L40X3 2 1245
101号 1052 L40X3 3 1420

wTrsE8zo.txt (3.72 KB) [求助]如何求出最经济的方法

现在所有数据是在数据库中

zeKvz708.rar (9.67 KB)

[此贴子已经被作者于2007-1-8 11:56:07编辑过]

[Visual Basic]
Imports System
Imports System.IO
Imports System.Text

Public Class Test

Public Shared Sub Main()
Dim path As String = 你的文件路径

' Delete the file if it exists.
If File.Exists(path) Then
File.Delete(path)
End If

'Create the file.
Dim fs As FileStream = File.Create(path)

AddText(fs, "This is some text")
AddText(fs, "This is some more text,")
AddText(fs, Environment.NewLine & "and this is on a new line")
AddText(fs, Environment.NewLine & Environment.NewLine)
AddText(fs, "The following is a subset of characters:" & Environment.NewLine)

Dim i As Integer

For i = 1 To 120
AddText(fs, Convert.ToChar(i).ToString())

'Split the output at every 10th character.
If Math.IEEERemainder(Convert.ToDouble(i), 10) = 0 Then
AddText(fs, Environment.NewLine)
End If
Next

fs.Close()

'Open the stream and read it back.
fs = File.OpenRead(path)
Dim b(1024) As Byte
Dim temp As UTF8Encoding = New UTF8Encoding(True)

Do While fs.Read(b, 0, b.Length) > 0
Console.WriteLine(temp.GetString(b))
Loop

fs.Close()
End Sub

Private Shared Sub AddText(ByVal fs As FileStream, ByVal value As String)
Dim info As Byte() = New UTF8Encoding(True).GetBytes(value)
fs.Write(info, 0, info.Length)
End Sub
End Class

导入数据库后自己靠sql語言操作吧```